home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / misc / LC2.lha / src / LC2_1s.HB2 next >
Text File  |  2002-03-28  |  106KB  |  1,977 lines
  1.  
  2.  
  3. ' LOTTO CHECK version 2.1d  Copyright (C) 1994-2001 Lorence Lombardo.
  4.  
  5. ' This program is Free software' you can redistribute it and/or modify
  6. ' it under the terms of the GNU General Public License as published by
  7. ' the Free Software Foundation' either version 2 of the License, or
  8. ' (at your option) any later version.
  9.  
  10. ' This program is distributed in the hope that it will be useful,
  11. ' but WITHOUT ANY WARRANTY' without even the implied warranty of
  12. ' MERCHANTABILITY OR FITNESS For A PARTICULAR PURPOSE.  See the
  13. ' GNU General Public License For more details.
  14.  
  15. ' You should have received a copy of the GNU General Public License
  16. ' along with this program' if not, write to the Free Software
  17. ' Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  
  19.  
  20. ' See "http://www.tattersalls.com.au" for related interest.
  21.  
  22.  
  23. ' See the archives "hsb_miscsrc.lha" and "hsb_reqt_inc.lha" for
  24. ' additional includes to this program on the aminet.
  25.  
  26. ' Email:-  lory@subdimension.com
  27.  
  28. ' Snail mail:-  Lorence Lombardo
  29. '               5 Rankin Street,
  30. '               Altona, 3018
  31. '               Victoria, Australia
  32.  
  33.  
  34.  
  35. CLEAR:DEFINT A-Z
  36.  
  37. REM $VARCHECKS
  38.  
  39. REM $INCLUDE graphics.bh
  40. REM $INCLUDE diskfont.bh
  41. REM $INCLUDE exec.bh
  42. REM $INCLUDE dos.bh
  43. REM $INCLUDE intuition.bh
  44. REM $INCLUDE reqtools.bh
  45. REM $INCLUDE utility.bh
  46. REM $INCLUDE BLib/ImageSupport.bas
  47.  
  48. CONST minver&     = 37&            'needs Kickstart 37+ (2.0)
  49. CONST rtver&    = 38&            'reqtools-version 38+
  50. CONST wbufsize&    = 512&
  51. CONST tagptr&    = 384&
  52.  
  53. LIBRARY OPEN "exec.library", minver&
  54. LIBRARY OPEN "intuition.library", minver&
  55. LIBRARY OPEN "reqtools.library", rtver&
  56. LIBRARY OPEN "graphics.library"
  57. LIBRARY OPEN "diskfont.library"
  58.  
  59. '----------------------------------------------------------------------------
  60. '512 byte, enough workspace for stringoperations and taglists:
  61.     
  62. wbuf& = AllocVec& (wbufsize&, MEMF_PUBLIC& OR MEMF_CLEAR&)
  63. IF wbuf& = NULL&
  64.     END
  65. END IF
  66. tagb& = wbuf& + tagptr&         'buffersection for taglists
  67.         
  68. nul$ = CHR$(0)                  'newline, stringtermination
  69. '----------------------------------------------------------------------------
  70.  
  71. SUB InitTextAttr(T(1),FontName$,BYVAL Height,BYVAL style,BYVAL flags)
  72. POKEL VARPTR(T(0))+ta_Name%,SADD(FontName$+CHR$(0))
  73. t(ta_YSize\2)=Height
  74. POKEB VARPTR(T(0))+ta_Style,style
  75. POKEB VARPTR(T(0))+ta_Flags,flags
  76. END SUB
  77. DIM TextAttr(4)
  78.  
  79. GOSUB lcpic
  80.  
  81. ON ERROR GOTO TERROR
  82. FCH$ = "LOTTO CHECK (C) 1994  Lorence Lombardo."
  83. FCH2$ = "LOTTO CHECK (C) 1997  Lorence Lombardo."
  84. LF$ = CHR$(10): PRF=0
  85. REM **********D( T ,N, L )**** ticket,number,line ****
  86. REM NX=system       GT= Games/ticket
  87. TMX = 100: DIM D(TMX + 1, 25, 12), X$(TMX + 1), NX(TMX + 1), GT(TMX + 1), N(20), R(25), WN(25, 12), WL(12), K(7), E$(14), NC(45), WT(TMX), WTL(TMX, 12)
  88.  
  89. IF FEXISTS("ENVARC:LC2.prefs")
  90.    OPEN "ENVARC:LC2.prefs" FOR INPUT AS #1
  91.    INPUT #1, scm&, PR$: CLOSE 1: GOSUB scmode
  92. ELSE
  93.    WINDOW 3,"",(10,10)-(1,1),32+128+256: WINDOW OUTPUT 3
  94.    PR$ = "PRT:": GOSUB scrmode: WINDOW CLOSE 3: IF sel=0 THEN END
  95. END IF
  96.  
  97. MD$ = "": Z = 0: V = 0:XX2 = 18: N$ = "LC-DEF.DAT": ST = 1: GOSUB TLD
  98. IF ST = 2 THEN P$ = "O": GOTO OPTIONS
  99.  
  100. ttop:
  101. ST = 0: RR$ = "": FOR NN = 1 TO 8: N(NN) = 0: NEXT: NR = 0: M = 0: D = 0: B$ = ""
  102. WINDOW 2,"",(0,85)-(640,171),16+32+128+256,1:WINDOW OUTPUT 2:FSZ=9:GOSUB font
  103. DO
  104.    NR = NR + 1: G = NR: N1$ = "  LOTTO ": IF MD$ = "4" THEN N1$ = "  KENO "
  105.    IF NR > 6 AND MD$ <> "4" THEN RR$ = "SUPPLEMENTARY ": G = NR - 6
  106.    GN$ = STR$(G): IF MD$ = "2" AND NR = 6 THEN GN$ = "": RR$ = "POWER-BALL "
  107.    NR$ = N1$ + RR$ + "NUMBER" + GN$ + " IS"
  108.    TASK:
  109.    NRCH = 0: PRINT NR$: INPUT P$: PRINT
  110.    N(NR) = VAL(P$): IF UCASE$(P$) = "O" THEN P$ = "O": GOTO OPTIONS
  111.    IF UCASE$(P$) = "Q" THEN GOTO TEND
  112.    IF MD$ = "1" AND N(7) = 0 AND NR = 7 THEN NR = 6: EXIT DO
  113.    IF N(NR) < 1 OR N(NR) > GDMX THEN
  114.       SOUND 880,2: COLOR 9: PRINT " 1 TO"; GDMX; "ONLY MATE !!!": COLOR 1: PRINT : GOTO TASK
  115.    END IF
  116.    IF MD$ = "2" AND NR < 6 THEN GOSUB NCHECK
  117.    IF MD$ <> "2" THEN GOSUB NCHECK
  118.    IF NRCH = 1 THEN SOUND 880,2: COLOR 9: PRINT " YOU'VE ALREADY GOT THIS NUMBER MATE !!!": PRINT : COLOR 1: GOTO TASK
  119.    
  120.    IF MD$ = "1" AND NR = 8 THEN EXIT DO
  121.    IF MD$ = "2" AND NR = 6 THEN EXIT DO
  122.    IF MD$ = "3" AND NR = 7 THEN EXIT DO
  123.    IF MD$ = "4" AND NR = 20 THEN EXIT DO
  124. LOOP
  125. CLS: GOSUB NUMS: COLOR 12
  126. PRINT " ARE YOU SURE THESE NUMBERS ARE CORRECT ? (Y/N/O)"
  127. DO: SLEEP: B$ = UCASE$(INKEY$): IF B$ = "N" THEN GOTO ttop
  128.    IF B$ = "Y" THEN GOTO TSHW
  129.    IF B$ = "O" THEN GOTO OPTIONS
  130.    IF B$ = "Q" THEN GOTO TEND
  131. LOOP
  132. NCHECK:
  133. FOR I = 1 TO NR: IF I <> NR AND N(NR) = N(I) THEN NRCH = 1
  134. NEXT: RETURN
  135. REM **************************** CHECKER **************************
  136. TSHW: T = 0
  137. WINDOW 2,"",(0,12)-(640,244),16+32+64+128+256,1:WINDOW OUTPUT 2
  138. SC=1: FSZ=9:GOSUB font
  139. DO: T = T + 1
  140.    IF V = 87 THEN LOCATE 20, XX2: COLOR 9: PRINT "      SCANNING TICKETS      "
  141. TTSHOW:
  142.    sus = NX(T): GOSUB SYSUSS
  143.    IF V <> 87 THEN
  144.       SP = 4: SP$ = " ": IF MD$ = "1" OR MD$ = "3" THEN GOSUB MD1SC
  145.       IF MD$ = "2" THEN GOSUB MD2SC
  146.       CLS : GOSUB NUMS: COLOR 1: XX2 = 18: IF SC = 2 THEN XX2 = 26
  147.       PRINT SPC(XX2); X$(T) + SYS$ + " TICKET" + STR$(T): PRINT : COLOR 6
  148.       IF MD$ = "1" OR MD$ = "3" THEN PRINT SPACE$(NX(T) * SP + 7); "No's "; : COLOR 4
  149.       IF MD$ = "2" THEN
  150.          COLOR 12: PRINT SPACE$(NX(T) * SP + 2); "PB ";
  151.          IF NX(T) < 23 THEN COLOR 6: PRINT "    No's";
  152.       END IF
  153.       IF MD$ = "4" THEN COLOR 4: PRINT SPACE$(48); "Spot"; : COLOR 6: PRINT "    No's"
  154.       IF NR = 8 OR NR = 7 THEN PRINT "Sups"
  155.       IF NR = 6 THEN PRINT
  156.       PRINT
  157.    END IF
  158. ANAL: WW = 0
  159.    FOR L = 1 TO GT(T): COLOR 5
  160.       IF V <> 87 THEN PRINT " "; CHR$(64 + L); " "; : COLOR 1
  161.       FOR N = 1 TO NX(T): WN(N, L) = 0
  162.          IF MD$ = "1" OR MD$ = "3" THEN GOSUB MD1
  163.          IF MD$ = "2" THEN GOSUB MD2
  164.          IF MD$ = "4" THEN M4 = D(T, 11, L): IF N <= M4 THEN GOSUB MD2
  165.  
  166.          IF V <> 87 THEN
  167.             IF MD$ = "4" THEN SP$ = " ": IF D(T, N, L) = 0 THEN SP$ = "-"
  168.             IF D(T, N, L) < 10 THEN PRINT " ";
  169.             IF D(T, N, L) > 0 THEN PRINT SP$; STR$(D(T, N, L)); : COLOR 1
  170.             IF D(T, N, L) = 0 THEN PRINT "  "; SP$;
  171.             IF MD$ = "2" AND N = NX(T) - 1 THEN COLOR 12: PRINT " ";
  172.             IF MD$ = "4" AND N = NX(T) - 1 THEN COLOR 4: PRINT "   -";
  173.          END IF
  174.       NEXT N
  175.       WL(L) = 0: IF MD$ = "1" OR MD$ = "3" THEN GOSUB MD1CHK
  176.       IF MD$ = "2" THEN GOSUB MD2CHK
  177.       IF MD$ = "4" THEN GOSUB MD4CHK
  178.       IF V <> 87 AND WL(L) = 1 THEN
  179.          IF NX(T) < 23 THEN PRINT " "; : COLOR 1, 7: PRINT " $$ ";
  180.          XXX = POS(0): LOCATE , 2: COLOR 7,0: PRINT CHR$(64 + L);
  181.          LOCATE , XXX
  182.       ELSE
  183.          IF V <> 87 THEN IF NX(T) < 23 THEN PRINT "     ";
  184.       END IF
  185.       IF V <> 87 THEN
  186.          IF M = 0 AND MD$ <> "2" THEN PRINT "   ";
  187.          IF M > 0 AND NX(T) < 23 THEN COLOR 6: PRINT M;
  188.          IF D > 0 AND MD$ <> "2" THEN COLOR 4: PRINT " "; D;
  189.          PRINT
  190.       END IF: M = 0: D = 0
  191.    NEXT L
  192.    IF WW = 1 AND V <> 87 THEN
  193.       LOCATE 5, 5: COLOR 1, 7: PRINT " WINNER !!! ": COLOR , 0
  194.       BEEP:FOR W = 1 TO 7: SOUND 880,3:SOUND 440,2:NEXT W: TTT = T
  195.    END IF
  196.    IF Z$ = "-" AND V = 87 AND WW = 0 THEN
  197.       IF T > 1 THEN T = T - 1: GOTO TTSHOW
  198.       IF T = 1 THEN Z$ = "": V = 99: T = TTT: SOUND 880,2: LOCATE 20, 25: PRINT SPACE$(25)
  199.    END IF
  200.    IF V <> 87 THEN
  201.       LOCATE 21, XX2 + 3: color 9: PRINT "- "; : color 11: PRINT "previous  "; : color 9
  202.       PRINT "Space "; : color 11: PRINT "next": color 9
  203.       LOCATE 22, XX2 + 2: PRINT "R "; : color 11: PRINT "reset  "; : color 9: PRINT "F ";
  204.       COLOR 11: PRINT "first  "; : COLOR 9: PRINT "L "; : COLOR 11: PRINT "last": COLOR 9
  205.       LOCATE 23, XX2: PRINT "G "; : color 11: PRINT "goto  "; : color 9: PRINT "P ";
  206.       color 11: PRINT "print wins  "; : color 9: PRINT "Q "; : color 11: PRINT "quit"
  207.    END IF
  208.    IF V = 87 OR V = 99 THEN
  209.       IF T = TT THEN
  210.          IF WW = 0 OR V = 99 THEN COLOR 9: LOCATE 20, XX2+5: SOUND 880,2: PRINT "ALL TICKETS SCANNED"
  211.          IF WW = 0 THEN T = TTT: V = 99
  212.       END IF
  213.    END IF
  214.    DO: SLEEP: IF V = 87 THEN EXIT DO
  215.       Z$ = UCASE$(INKEY$): IF Z$ = " " AND T <> TT THEN EXIT DO:
  216.       IF Z$ = "-" AND T > 1 THEN
  217.          IF V = 99 THEN V = 87
  218.          IF V = 87 THEN LOCATE 20, XX2+3: COLOR 9: PRINT "       BACK SCAN       "
  219.          T = T - 1: GOTO TTSHOW
  220.       END IF
  221.       IF Z$ = "L" AND T < TT THEN T = TT: GOTO TTSHOW
  222.       IF Z$ = "F" AND T > 1 THEN
  223.          IF V = 99 THEN V = 87
  224.          GOTO TSHW
  225.       END IF
  226.       IF Z$ = "R" OR Z$ = CHR$(27) THEN V = 0: GOTO ttop
  227.       IF Z$ = "P" AND WW = 1 THEN GOSUB WPRINT
  228.       IF Z$ = "G" THEN
  229.          IF V = 87 THEN V = 99
  230.          GOSUB TGOT: IF sel>0 THEN GOTO TTSHOW
  231.       END IF
  232.       IF Z$ = "Q" THEN GOTO TEND
  233.    LOOP: IF V = 87 AND WW = 1 THEN V = 99: GOTO TTSHOW
  234.    IF V = 99 THEN V = 87
  235. LOOP
  236. NUMS:
  237. COLOR 6: PRINT " "; : FOR NN = 1 TO NR
  238.    IF MD$ <> "4" AND NN > 6 THEN COLOR 4
  239.    IF MD$ = "2" AND NN = NR THEN COLOR 4
  240.    PRINT STR$(N(NN)); : IF MD$ <> "4" AND NN < NR THEN PRINT " -";
  241. NEXT: PRINT : PRINT : RETURN
  242.  
  243. MD1:
  244. FOR NN = 1 TO NR
  245.    IF N(NN) = D(T, N, L) AND NN < 7 THEN COLOR 6: M = M + 1: WN(N, L) = 1
  246.    IF N(NN) = D(T, N, L) AND NN > 6 THEN COLOR 4: D = D + 1: WN(N, L) = 2
  247. NEXT NN: RETURN
  248. MD1CHK:
  249. MM = M: IF NX(T) < 6 THEN MM = M + 6 - NX(T)
  250. IF NR = 8 OR NR = 7 THEN IF MM = 3 AND D > 0 OR MM > 3 THEN WW = 1: WL(L) = 1
  251. IF NR = 6 AND MM = 6 THEN WW = 1: WL(L) = 1
  252. RETURN
  253. MD1SC:
  254. IF NX(T) > 12 THEN SP$ = "": SP = 3
  255. IF NX(T) > 16 AND SC <> 2 THEN SC = 2: FSZ=8:GOSUB font
  256. IF NX(T) < 17 AND SC <> 1 THEN SC = 1: FSZ=9:GOSUB font
  257. RETURN
  258.  
  259. MD2:
  260. FOR NN = 1 TO NR
  261.    IF N(NN) = D(T, N, L) AND N <> NX(T) AND NN <> NR THEN COLOR 6: M = M + 1: WN(N, L) = 1
  262.    IF N(NN) = D(T, N, L) AND N = NX(T) AND NN = NR THEN COLOR 4: D = D + 1: WN(N, L) = 1
  263. NEXT NN: RETURN
  264. MD2CHK:
  265. MM = M: IF NX(T) < 6 THEN MM = M + 6 - NX(T)
  266. IF MM = 2 AND D > 0 OR MM > 2 THEN WW = 1: WL(L) = 1
  267. RETURN
  268. MD2SC:
  269. IF NX(T) > 12 THEN SP$ = "": SP = 3
  270. IF NX(T) > 17 AND SC <> 2 THEN SC = 2: FSZ=8:GOSUB font
  271. IF NX(T) < 18 AND SC <> 1 THEN SC = 1: FSZ=9:GOSUB font
  272. RETURN
  273.  
  274. MD4:
  275. FOR NN = 1 TO NR
  276.    IF N(NN) = D(T, N, L) THEN COLOR 6: M = M + 1: WN(N, L) = 1
  277. NEXT NN: RETURN
  278. MD4CHK:
  279. IF M4 = 10 THEN IF M = 0 OR M > 6 THEN WW = 1: WL(L) = 1
  280. IF M4 = 9 OR M4 = 8 THEN IF M > 5 THEN WW = 1: WL(L) = 1
  281. IF M4 = 7 OR M4 = 6 THEN IF M > 4 THEN WW = 1: WL(L) = 1
  282. IF M4 = 5 AND M > 3 THEN WW = 1: WL(L) = 1
  283. IF M4 = 4 AND M > 2 THEN WW = 1: WL(L) = 1
  284. IF M4 = 3 AND M > 1 THEN WW = 1: WL(L) = 1
  285. RETURN
  286.  
  287. SYSUSS:
  288. SYS$ = " standard": SY = 0: IF MD$ = "2" THEN SY = 1
  289. SY$ = STR$(sus - SY): IF MD$ <> "2" AND sus < 6 THEN SYS$ = " take" + SY$
  290. IF MD$ <> "2" AND sus > 6 THEN SYS$ = " system" + SY$
  291. IF MD$ = "2" AND sus <> 6 THEN SYS$ = " PowerPlay" + SY$
  292. IF MD$ = "4" THEN SYS$ = " keno"
  293. RETURN
  294.  
  295. REM ********************************* WIN PRINT *****************************
  296. WPRINT:
  297. OPEN PR$ FOR OUTPUT AS 1
  298. PRINT #1, X$(T); SYS$; " ticket"; T
  299. SPP$ = " ": IF NX(T) = 20 THEN SPP$ = ""
  300. FOR L = 1 TO GT(T)
  301.    IF WL(L) = 1 THEN
  302.       PRINT #1, "  "; CHR$(64 + L); "  ";
  303.       FOR N = 1 TO NX(T)
  304.          IF WN(N, L) = 0 THEN WP$ = " --"
  305.          IF MD$ = "4" AND N > D(T, 11, L) THEN WP$ = "   "
  306.          IF WN(N, L) > 0 THEN
  307.             IF D(T, N, L) < 10 THEN WP$ = " " + STR$(D(T, N, L))
  308.             IF D(T, N, L) > 9 THEN WP$ = STR$(D(T, N, L))
  309.          END IF
  310.          PRINT #1, WP$; SPP$;
  311.          IF MD$ = "2" AND N = NX(T) - 1 THEN PRINT #1, "  PB";
  312.          IF MD$ = "4" AND N = NX(T) - 1 THEN PRINT #1, "  Spot"; D(T, 11, L)
  313.       NEXT N: PRINT #1, "": PRINT #1, "     ";
  314.       FOR N = 1 TO NX(T)
  315.          IF WN(N, L) = 2 THEN PRINT #1, " ~~"; SPP$;  ELSE PRINT #1, "   "; SPP$;
  316.       NEXT N: PRINT #1, ""
  317.    END IF
  318. NEXT L: PRINT #1, "": CLOSE #1: SOUND 880,2: RETURN
  319. REM **************************** OPTIONS ************************************
  320. OPTIONS:
  321. WINDOW 2,"",(0,65)-(640,191),16+32+64+128+256,1:WINDOW OUTPUT 2
  322. FSZ=9:GOSUB font:ST = 0: COLOR 2, 5:
  323. PRINT "                          OPTIONS MENU                          "
  324. COLOR 2, 0
  325. LOCATE 4, 21: COLOR 9: PRINT "L "; : COLOR 1: PRINT "Load a new data file"
  326. LOCATE 6, 21: COLOR 9: PRINT "E "; : COLOR 1: PRINT "Ticket editor"
  327. LOCATE 8, 21: COLOR 9: PRINT "R "; : COLOR 1: PRINT "Create random tickets"
  328. LOCATE 10, 21: COLOR 9: PRINT "C "; : COLOR 1: PRINT "Return to checker"
  329. LOCATE 12, 21: COLOR 9: PRINT "W "; : COLOR 1: PRINT "Show winning tickets only"
  330. LOCATE 15, 21: COLOR 12:PRINT "S "; : COLOR 1: PRINT "Screen    ";:COLOR 12:PRINT "P ";:COLOR 1:PRINT "Printer"
  331. LOCATE 17, 21: COLOR 12: PRINT "A "; : COLOR 1: PRINT "About   "; : COLOR 12: PRINT "Q "; : COLOR 1: PRINT "Quit"
  332. DO: SLEEP: V$ = UCASE$(INKEY$): IF V$="" THEN V=0 ELSE V=ASC(V$)
  333.    IF V = 69 THEN GOTO TSCREEN
  334.    IF V = 76 THEN KA = 2: GOSUB TL1: IF N$ <> "" THEN GOTO SUSS
  335.    IF V$ = "R" THEN 
  336.       NXMN=1: NXMX=TMX: msg$="How many tickets ?":GOSUB numreq
  337.       IF sel=1 THEN GOTO TRANDOM: REM V=82
  338.    END IF
  339.    IF V = 67 OR V = 27 THEN GOTO SUSS
  340.    IF V = 81 THEN GOTO TEND
  341.    IF V = 87 THEN GOTO SUSS
  342.    IF V = 65 THEN GOTO ABOUT
  343.    IF V = 80 THEN
  344.       PRF=1: msg$=" Enter printer output.": def$=PR$: GOSUB stringsel
  345.       PR$=ssel$: IF sel=0 THEN PR$="PRT:"
  346.    END IF
  347.    IF V = 83 THEN GOSUB scrmode: IF sel>0 THEN GOTO OPTIONS
  348. LOOP
  349. SUSS:
  350. IF TT = 0 THEN err$="Nothing to check..!!":GOSUB erroreq: GOTO OPTIONS
  351. IF P$ = "O" THEN P$ = "": GOTO ttop
  352. IF B$ = "O" THEN B$ = "": GOTO TSHW
  353. REM ****************************** RANDOM **********************************
  354. TRANDOM:
  355. IF MD$ = "" THEN MD$ = "1": GOSUB TLIMITS
  356. COLOR 9 : LOCATE 2, 24: PRINT "Creating tickets.": GOSUB TEDIT: TT = longnum&
  357. FOR T = 1 TO TT: GT(T) = GPT: NX(T) = 6: GOSUB TTRND: NEXT T
  358. SOUND 880,2: GOTO TSCREEN
  359. TTRND:
  360. X$(T) = "RANDOM": FOR L = 1 TO GT(T): GOSUB RGAME: NEXT L: RETURN
  361. RGAME:
  362. RMX = NX(T): IF MD$ = "4" THEN RMX = D(T, 11, L): IF RMX < 3 THEN RMX = 3: D(T, 11, L) = 3
  363. FOR R = 1 TO RMX
  364. TRND:
  365.    RDCH = 0: RANDOMIZE TIMER: R(R) = (RND * (GDMX - 1)) + 1
  366.    IF MD$ = "2" AND R <> NX(T) THEN GOSUB RDCHECK
  367.    IF MD$ <> "2" THEN GOSUB RDCHECK
  368.    IF RDCH = 1 THEN GOTO TRND
  369. NEXT R: GOSUB RSORT: RETURN
  370. RDCHECK:
  371. FOR S = 1 TO R: IF S <> R AND R(R) = R(S) THEN RDCH = 1
  372. NEXT S: RETURN
  373.  
  374. REM ****************************** EDITOR **********************************
  375. TEDIT:
  376. FOR T = 1 TO TT: TZ = T: GOSUB TZERO: NX(T) = 0: GT(T) = 0: NEXT T
  377. IF KA = 2 THEN RETURN
  378. N = 1: L = 1: TT = 0: IF V = 82 THEN RETURN
  379. TSCREEN:
  380. IF MD$ = "" THEN MD$ = "1"
  381. WINDOW 2,"",(0,12)-(640,244),16+32+64+128+256,1:WINDOW OUTPUT 2
  382. CLS: FSZ=8:GOSUB font: Z4 = 0: T = 1: IF TT = 0 THEN TT = 1
  383. GOSUB LAYOUT: GOSUB TICKET: GOTO PSY
  384. MAIN:
  385. SLEEP: A$ = UCASE$(INKEY$): Z2 = PEEK(12577793)
  386. V = 0: Z3 = 0:IF A$="" THEN Z=0 ELSE Z = ASC(A$)
  387.  
  388. IF Z2=57 THEN Z3=2
  389. IF Z2=55 OR Z2=53 THEN Z3=1
  390.  
  391. IF Z3 = 1 AND Z4 = 2 AND MD$ <> "2" THEN GOSUB BLANK: GOSUB ALT
  392. IF Z3 = 2 AND Z4 = 1 AND MD$ <> "2" THEN GOSUB BLANK: GOSUB CTRL
  393.  
  394.  
  395. REM **** AN ARROW ****
  396. IF Z>27 AND Z<32 THEN
  397.    GOSUB DCHECK
  398.    IF DCH = 0 THEN
  399.  
  400.       C$ = "-": IF MD$ = "2" OR MD$ = "4" THEN IF N = NX(T) THEN C$ = "="
  401.       C = 5: GOSUB POSY
  402.       
  403.       IF Z=29 THEN L = L + 1: IF L > GT(T) THEN L = 1: REM *** V ***
  404.  
  405.       IF Z=28 THEN L = L - 1: IF L < 1 THEN L = GT(T): REM *** ^ ***
  406.  
  407.       IF Z=30 THEN N = N + 1: IF N > NX(T) THEN N = 1: REM *** > ***
  408.       IF MD$ = "4" AND N > D(T, 11, L) THEN N = 11
  409.                                                        REM *** < ***
  410.       IF Z=31 THEN 
  411.          IF MD$ = "4" AND N = 11 THEN N = D(T, 11, L) ELSE N = N - 1
  412.          IF N < 1 THEN N = NX(T)
  413.       END IF
  414.  
  415.    END IF
  416. END IF
  417. REM *** A  NUMBER ***
  418. IF Z > 47 AND Z < 58 THEN
  419.    IF D(T, N, L) > 0 THEN
  420.       X = -1: C$ = STR$(D(T, N, L)) + A$
  421.       NVL = GDMX + 1: IF MD$ = "4" AND N = 11 THEN NVL = 11
  422.       IF VAL(C$) < NVL THEN GOSUB NUM: D(T, N, L) = VAL(C$)
  423.    END IF
  424.    IF D(T, N, L) = 0 THEN
  425.       D(T, N, L) = VAL(A$): C$ = A$: X = 1
  426.       IF D(T, N, L) > 0 THEN GOSUB NUM
  427.    END IF
  428. END IF
  429. IF Z = 127 OR Z = 8
  430.    IF D(T, N, L) < 10 THEN C$ = " ": GOSUB NUM: D(T, N, L) = 0
  431.    IF D(T, N, L) > 9 THEN
  432.       C$ = " " + LEFT$(STR$(D(T, N, L)), 2): X = -1
  433.       GOSUB NUM: D(T, N, L) = VAL(C$)
  434.    END IF
  435. END IF
  436. IF A$ = "+" AND T < TMX THEN
  437.    GOSUB DCHECK: GOSUB CHECK
  438.    IF DCH = 0 AND CH > 0 THEN
  439.       DD$ = X$(T): T = T + 1: IF X$(T) = "" AND T > TT THEN X$(T) = DD$
  440.       GOSUB LAYOUT: GOSUB TICKET
  441.    END IF
  442. END IF
  443. IF TT < T THEN TT = T
  444. IF A$ = "-" AND T > 1 THEN GOSUB DCHECK: IF DCH = 0 THEN T = T - 1: GOSUB LAYOUT: GOSUB TICKET
  445. IF Z=13 THEN IF Z2 = 119 OR Z2=121 THEN GOTO TNAME
  446.  
  447. IF A$ = "Q" THEN
  448.    COLOR 9: LOCATE 2, 22:PRINT "Are you sure you want to quit ?  (Y/N)"
  449.    GOSUB CONFIRM: LOCATE 2,1: PRINT SPACE$(80) 
  450.    IF E$ = "Y" THEN GOTO TEND
  451. END IF
  452.  
  453. IF A$ = "S" THEN GOTO TSORT
  454. IF Z=163 THEN GOTO TLOAD
  455. IF Z=223 OR Z=167 THEN KA=0: GOTO TSAVE
  456. IF Z=173 OR Z=175 THEN
  457.    GOSUB CHECK
  458.    IF TT = 1 AND CH > 0 OR TT > 1 THEN
  459.       COLOR 9: LOCATE 2, 17:PRINT "All existing data will be lost. Continue ?  (Y/N)"
  460.       GOSUB CONFIRM: LOCATE 2,1: PRINT SPACE$(80):IF E$ = "N" THEN GOTO MAIN
  461.    END IF: KA=0: GOTO TEDIT
  462. END IF
  463. IF A$ = "F" AND T > 1 THEN T = 1: GOSUB LAYOUT: GOSUB TICKET
  464. IF A$ = "L" AND T < TT THEN
  465.    TTT = T: T = TT: GOSUB CHECK
  466.    IF CH = 0 THEN T = T - 1
  467.    IF TTT <> T THEN GOSUB LAYOUT: GOSUB TICKET
  468. END IF
  469. IF A$ = "G" THEN GOTO TGOTO
  470. IF Z=182 THEN GOSUB CHECK: IF CH > 0 THEN GOTO TPRT
  471. IF Z=161 OR Z=166 THEN GOTO TINSERT
  472.  
  473. IF Z=208 OR Z=240 THEN GOTO TERASE
  474.  
  475. IF Z=177 OR Z=172 THEN TZ = T: GOSUB TZERO: GOSUB LAYOUT
  476. IF Z=215 OR Z=247 THEN TZ = 0: GOSUB TZERO: TA = 0: TB = T: GOSUB TCOPY: SOUND 880,2
  477. IF Z=186 THEN
  478.    TZ = T: GOSUB TZERO: TA = T: TB = 0: GOSUB TCOPY
  479.    GOSUB LAYOUT: GOSUB TICKET
  480. END IF
  481. IF Z=176 THEN
  482.    TZ = TMX + 1: GOSUB TZERO: TA = TZ: TB = 0: GOSUB TCOPY
  483.    TZ = 0: GOSUB TZERO: TA = 0: TB = T: GOSUB TCOPY
  484.    TZ = T: GOSUB TZERO: TA = T: TB = TMX + 1: GOSUB TCOPY
  485.    GOSUB LAYOUT: GOSUB TICKET
  486. END IF
  487. IF Z = 15 OR Z = 27 THEN
  488.    GOSUB DCHECK
  489.    IF DCH = 0 THEN
  490.       T = TT: GOSUB CHECK: IF CH = 0 THEN TT = TT - 1
  491.       COLOR 0, 0: GOTO OPTIONS
  492.    END IF
  493. END IF
  494.  
  495. IF Z2 = 145 AND Z = 13 THEN
  496.    IF TT = 1 AND CH > 0 OR TT > 1 THEN
  497.       COLOR 9: LOCATE 2, 15
  498.       PRINT "Changing mode will clear all data. Continue ?  (Y/N)"
  499.       GOSUB CONFIRM: LOCATE 2,1:PRINT SPACE$(80):IF E$="N" GOTO MAIN
  500.    END IF
  501.    LOCATE 2,19:COLOR 11:PRINT "Select mode. ("; : COLOR 9: PRINT "P"; : COLOR 11
  502.    PRINT "ools/"; : COLOR 9: PRINT "L"; : COLOR 11: PRINT "otto/Power"; : COLOR 9
  503.    PRINT "B"; : COLOR 11: PRINT "all/"; : COLOR 9: PRINT "K"; : COLOR 11: PRINT "eno)"
  504.    DO: SLEEP: E$ = UCASE$(INKEY$)
  505.      IF E$ = "P" OR E$ = "L" OR E$ = "B" OR E$ = "K" THEN EXIT DO
  506.    LOOP
  507.    IF E$ = "L" THEN MD$ = "1"
  508.    IF E$ = "B" THEN MD$ = "2"
  509.    IF E$ = "P" THEN MD$ = "3"
  510.    IF E$ = "K" THEN MD$ = "4"
  511.    KA=0: GOTO TEDIT
  512. END IF
  513.  
  514. IF Z=174 THEN
  515.    LOCATE 2, 32: COLOR 9: PRINT "Creating ticket."
  516.    GOSUB TTRND: GOSUB LAYOUT: GOSUB TICKET
  517. END IF
  518. IF Z=198 OR Z=230 THEN GOTO TPRINT
  519. IF Z = 7 THEN GOTO GMTT
  520. IF Z = 19 AND MD$ <> "4" THEN GOTO TSYSTEM
  521. IF Z = 18 THEN NN = N: GOSUB RGAME: GOSUB LIN: N = NN
  522. IF Z = 26 THEN TZ = T: LL = L: GOSUB GZERO: NN = N: GOSUB LIN: N = NN
  523. IF Z = 16 THEN
  524.    GCH = 0: FOR NN = 1 TO NX(T): IF D(T, NN, L) > 0 THEN GCH = 1
  525.    NEXT NN: IF GCH = 1 THEN GOTO TPRT
  526. END IF
  527. IF Z = 24 THEN
  528.    TZ = 0: LL = 0: GOSUB GZERO: LB = L: TA = 0: TB = T: NC = NX(T)
  529.    GOSUB GCOPY: SOUND 880,2
  530. END IF
  531. IF Z = 2 THEN
  532.    TZ = T: LL = L: GOSUB GZERO: TA = T: TB = 0: LB = 0: NC = NX(T)
  533.    GOSUB GCOPY: NN = N: GOSUB LIN: N = NN
  534. END IF
  535. IF Z = 23 THEN
  536.    NC = NX(T): TA = T: LL = 0: TB = T: LB = L: GOSUB GCOPY: TZ = T: LL = L
  537.    GOSUB GZERO: TB = 0: LB = 0: GOSUB GCOPY: TZ = 0: LL = 0: GOSUB GZERO
  538.    TB = T: TA = 0: GOSUB GCOPY: TZ = T: GOSUB GZERO: NN = N: GOSUB LIN: N = NN
  539. END IF
  540. IF Z = 4 THEN GOTO GERASE
  541. IF Z=9 AND Z2=209 AND GT(T) < GPT THEN GOTO GINSERT
  542. REM *************************
  543. PSY:
  544. IF MD$ = "4" AND D(T, 11, L) < 3 THEN N = 11
  545. C = 6 : C$ = "^": X = 1: Y = 2: GOSUB POSY: GOTO MAIN
  546. NUM:
  547. C = 1: Y = 1: IF MD$ = "2" OR MD$ = "4" THEN IF N = NX(T) THEN C = 9
  548. POSY:
  549. LOCATE Y + (L * 2), X + (N * 3): COLOR C: PRINT C$; : RETURN
  550.  
  551. TLIMITS:
  552. IF NX(T) = 0 THEN NX(T) = 6
  553. IF MD$ = "1" OR MD$ = "2" THEN GDMX = 45
  554. IF MD$ = "3" THEN GDMX = 38
  555. IF MD$ = "4" THEN GDMX = 80: GPT = 5: NX(T) = 11
  556. IF MD$ = "1" OR MD$ = "3" THEN GPT = 12
  557. IF MD$ = "2" THEN GPT = 6
  558. IF GT(T) = 0 THEN GT(T) = GPT
  559. RETURN
  560.  
  561.  
  562. LAYOUT:
  563. GOSUB TLIMITS: CLS:COLOR 2,3
  564. PRINT "      LOTTO TICKET EDITOR  Version 2.1d  (C) 1994-2001  Lorence Lombardo.        "
  565. COLOR 0,0:LOCATE 3: FOR K = 1 TO GT(T): COLOR 4: PRINT CHR$(64 + K)
  566.     COLOR 5: PRINT " "; : FOR kk = 1 TO NX(T): QQ$ = " --"
  567.     IF MD$ = "2" OR MD$ = "4" THEN IF kk = NX(T) THEN QQ$ = " =="
  568.     PRINT QQ$; : NEXT kk
  569.     IF K < 12 THEN PRINT
  570. NEXT K: COLOR 2
  571. IF MD$ = "2" THEN GOSUB PBLAYOUT ELSE GOSUB TLAYOUT
  572. RETURN
  573.  
  574.  
  575. TLAYOUT:
  576. IF MD$ = "1" THEN MDN$ = "Lotto"
  577. IF MD$ = "3" THEN MDN$ = "Pools"
  578. IF MD$ = "4" THEN MDN$ = "Keno"
  579. LOCATE 3, 63: COLOR 10:PRINT MDN$; " ticket"; T: COLOR 9: LOCATE 4, 64: PRINT "NAME: "; : COLOR 11: PRINT X$(T)
  580. sus = NX(T): GOSUB SYSUSS: LOCATE 5, 64: COLOR 9: PRINT "TYPE:"; : COLOR 11: PRINT SYS$
  581. LOCATE 6, 64: COLOR 9: PRINT "GAMES:"; : COLOR 11: PRINT GT(T)
  582. LOCATE 7, 63: COLOR 4, 1: PRINT "  KEY   COMMANDS  ": COLOR 4, 0
  583. LOCATE 8, 63: PRINT "+ "; : color 1: PRINT "next "; : color 4: PRINT "- "; : color 1: PRINT "previous": color 4
  584. LOCATE 9, 63: color 4: PRINT "F "; : color 1: PRINT "first "; : color 4: PRINT "L "; : color 1: PRINT "last"; : color 4
  585. LOCATE 10, 63: PRINT "G "; : color 1: PRINT "goto"; : color 4: PRINT " Del "; : color 1: PRINT "del # "; : color 4
  586. LOCATE 11, 63: PRINT "S"; : color 1: PRINT " sort "; : color 4: PRINT "Enter "; : color 1: PRINT "name ";
  587. LOCATE 12, 63: color 4: PRINT "Arws "; : color 1: PRINT "curs "; : color 4: PRINT "Q "; : color 1: PRINT "quit"
  588. IF Z4 < 2 THEN GOSUB ALT ELSE GOSUB CTRL
  589. RETURN
  590. ALT:
  591. LOCATE 14, 63: COLOR 9: PRINT "[ALT] KEYS:- ": COLOR 4: Z4 = 1
  592. LOCATE 15, 63: PRINT "L "; : color 1: PRINT "load "; : color 4: PRINT "S "; : color 1: PRINT "save": color 4
  593. LOCATE 16, 63: PRINT "N "; : color 1: PRINT "new "; : color 4: PRINT "A "; : color 1: PRINT "print all"
  594. LOCATE 17, 63: COLOR 2: PRINT "Ticket:-": B2$ = "[Ctrl]": GOSUB FUNS: RETURN
  595. CTRL:
  596. LOCATE 14, 63: COLOR 9: PRINT "[CTRL] KEYS:-": COLOR 4: Z4 = 2
  597. LOCATE 15, 63: IF MD$ <> "4" THEN PRINT "S "; : color 1: PRINT "system ";
  598. color 4: PRINT "G "; : color 1: PRINT "games": color 4
  599. LOCATE 16, 63: PRINT "O "; : color 1: PRINT "options "; : color 4: PRINT "M "; : color 1: PRINT "mode"
  600. LOCATE 17, 63: COLOR 2: PRINT "Game:-": B2$ = "[Alt]": GOSUB FUNS: RETURN
  601. FUNS:
  602. LOCATE 18, 63: color 4: PRINT "X "; : color 1: PRINT "copy "; : color 4: PRINT "B "; : color 1: PRINT "paste": color 4
  603. LOCATE 19, 63: PRINT "W "; : color 1: PRINT "swap "; : color 4: PRINT "P "; : color 1: PRINT "print": color 4
  604. LOCATE 20, 63: PRINT "Z "; : color 1: PRINT "zero "; : color 4: PRINT "R "; : color 1: PRINT "random": color 4
  605. LOCATE 21, 63: PRINT "D "; : color 1: PRINT "kill "; : color 4: PRINT "I "; : color 1: PRINT "insert"
  606. LOCATE 23, 63: COLOR 9: PRINT "Press "; : COLOR 7: PRINT B2$; : COLOR 9: PRINT " for "
  607. LOCATE 24, 63: PRINT " more fuctions.": RETURN
  608. BLANK:
  609. COLOR 0, 0: FOR B1 = 1 TO 4: LOCATE 13 + B1, 63: PRINT SPACE$(18): NEXT B1: RETURN
  610.  
  611. PBLAYOUT:
  612. LOCATE 16, 31: COLOR 2, 5: PRINT " PowerBall mode "
  613. PBX = 11: LOCATE 18, 34: COLOR 10, 0: PRINT "Ticket"; T:COLOR 9
  614. LOCATE 18, PBX: PRINT "NAME: "; : COLOR 11: PRINT X$(T): sus = NX(T): GOSUB SYSUSS
  615. LOCATE 19, PBX: COLOR 9: PRINT "TYPE:"; : COLOR 11: PRINT SYS$
  616. LOCATE 20, PBX: COLOR 9: PRINT "GAMES:"; : COLOR 11: PRINT GT(T)
  617. LOCATE 21, PBX: COLOR 4, 1: PRINT "  KEY   COMMANDS  ": COLOR 4,0
  618. LOCATE 22, PBX: PRINT "+ "; : COLOR 1: PRINT "next "; : COLOR 4: PRINT "- "; : COLOR 1: PRINT "previous": COLOR 4
  619. LOCATE 23, PBX: COLOR 4: PRINT "F "; : COLOR 1: PRINT "first "; : COLOR 4: PRINT "L "; : COLOR 1: PRINT "last"; : COLOR 4
  620. LOCATE 24, PBX: PRINT "G "; : COLOR 1: PRINT "goto"; : COLOR 4: PRINT " Del "; : COLOR 1: PRINT "del # "; : COLOR 4
  621. LOCATE 25, PBX: PRINT "S"; : COLOR 1: PRINT " sort "; : COLOR 4: PRINT "Enter "; : COLOR 1: PRINT "name ";
  622. LOCATE 26, PBX: COLOR 4: PRINT "Arws "; : COLOR 1: PRINT "curs "; : COLOR 4: PRINT "Q "; : COLOR 1: PRINT "quit";
  623.  
  624. LOCATE 19, PBX + 20: COLOR 9: PRINT "[ALT] KEYS:- ": COLOR 4
  625. LOCATE 20, PBX + 20: PRINT "L "; : COLOR 1: PRINT "load "; : COLOR 4: PRINT "S "; : COLOR 1: PRINT "save": COLOR 4
  626. LOCATE 21, PBX + 20: PRINT "N "; : COLOR 1: PRINT "new "; : COLOR 4: PRINT "A "; : COLOR 1: PRINT "print all"
  627. LOCATE 22, PBX + 20: COLOR 2: PRINT "Ticket:-"
  628. LOCATE 23, PBX + 20: COLOR 4: PRINT "X "; : COLOR 1: PRINT "copy "; : COLOR 4: PRINT "B "; : COLOR 1: PRINT "paste": COLOR 4
  629. LOCATE 24, PBX + 20: PRINT "W "; : COLOR 1: PRINT "swap "; : COLOR 4: PRINT "P "; : COLOR 1: PRINT "print": COLOR 4
  630. LOCATE 25, PBX + 20: PRINT "Z "; : COLOR 1: PRINT "zero "; : COLOR 4: PRINT "R "; : COLOR 1: PRINT "random": COLOR 4
  631. LOCATE 26, PBX + 20: PRINT "D "; : COLOR 1: PRINT "kill "; : COLOR 4: PRINT "I "; : COLOR 1: PRINT "insert";
  632.  
  633. LOCATE 19, PBX + 40: COLOR 9: PRINT "[CTRL] KEYS:-": COLOR 4
  634. LOCATE 20, PBX + 40: PRINT "S "; : COLOR 1: PRINT "system"; : COLOR 4: PRINT " G "; : COLOR 1: PRINT "games": COLOR 4
  635. LOCATE 21, PBX + 40: PRINT "O "; : COLOR 1: PRINT "options "; : COLOR 4: PRINT "M "; : COLOR 1: PRINT "mode"
  636. LOCATE 22, PBX + 40: COLOR 2: PRINT "Game:-"
  637. LOCATE 23, PBX + 40: COLOR 4: PRINT "X "; : COLOR 1: PRINT "copy "; : COLOR 4: PRINT "B "; : COLOR 1: PRINT "paste": COLOR 4
  638. LOCATE 24, PBX + 40: PRINT "W "; : COLOR 1: PRINT "swap "; : COLOR 4: PRINT "P "; : COLOR 1: PRINT "print": COLOR 4
  639. LOCATE 25, PBX + 40: PRINT "Z "; : COLOR 1: PRINT "zero "; : COLOR 4: PRINT "R "; : COLOR 1: PRINT "random": COLOR 4
  640. LOCATE 26, PBX + 40: PRINT "D "; : COLOR 1: PRINT "kill "; : COLOR 4: PRINT "I "; : COLOR 1: PRINT "insert";
  641. RETURN
  642.  
  643.  
  644. DCHECK:
  645. DCH = 0:LOCATE 2, 30: PRINT SPACE$(20): LOCATE 2, 30:COLOR 9
  646. IF MD$ = "4" AND N = NX(T) THEN
  647.    M4 = D(T, 11, L): IF M4 = 0 AND A$ = "-" THEN RETURN
  648.    IF M4 < 3 THEN DCH = 1: PRINT "Invalid spot number.": SOUND 880,2
  649.    IF M4 > 2 AND M4 < 10 THEN
  650.       FOR NN = M4 + 1 TO 10: D(T, NN, L) = 0: NEXT
  651.       NN = N: Y = -1: GOSUB LIN: N = NN: Y = 2: X = 1
  652.    END IF
  653.    RETURN
  654. ELSE
  655.    IF D(T, N, L) = 0 THEN RETURN
  656. END IF
  657. IF MD$ = "2" AND N = NX(T) THEN RETURN
  658. NXT = NX(T): IF MD$ = "2" OR MD$ = "4" THEN NXT = NX(T) - 1
  659.  
  660. FOR NCH = 1 TO NXT: IF N <> NCH AND D(T, N, L) = D(T, NCH, L) THEN DCH = 1
  661. NEXT NCH
  662. IF DCH = 1 THEN PRINT "Duplicate number.": SOUND 880,2
  663. RETURN
  664.  
  665.  
  666. TICKET:
  667. FOR L = 1 TO GT(T): GOSUB LIN: NEXT L: N = 1: L = 1: RETURN
  668. LIN:
  669. FOR N = 1 TO NX(T): X = 0: IF D(T, N, L) > 9 THEN X = -1
  670.    C$ = STR$(D(T, N, L)): IF D(T, N, L) = 0 THEN C$ = "   "
  671.    GOSUB NUM
  672. NEXT N: RETURN
  673.  
  674. CHECK:
  675. CH = 0: NN = N: LL = L: FOR L = 1 TO GT(T)
  676.    FOR N = 1 TO NX(T): IF D(T, N, L) > CH THEN CH = D(T, N, L)
  677. NEXT N: NEXT L: N = NN: L = LL: RETURN
  678.  
  679. TNAME:
  680. NNN=N: LLL=L: msg$=" Enter ticket name.": def$=X$(T): GOSUB stringsel
  681. IF LEN(ssel$)>10 THEN err$="No more than 10 characters long.": GOSUB erroreq: GOTO TNAME
  682. X$(T)=ssel$: IF sel=0 THEN X$(T)=""
  683. GOSUB LAYOUT: GOSUB TICKET: N=NNN: L=LLL: GOTO PSY
  684.  
  685. GMTT:
  686. NXMN = 1:NXMX = GPT: msg$="Enter number of games.": GOSUB numreq
  687. IF sel=0 THEN GOTO MAIN
  688. TZ = T: GOSUB TZERO: L = 1: N = 1: GT(T) = longnum&: GOSUB LAYOUT: GOTO PSY
  689.  
  690. TSYSTEM:
  691. IF MD$ = "1" OR MD$ = "3" THEN NXMN = 4: NXMX = 20
  692. IF MD$ = "2" THEN NXMN = 3: NXMX = 24
  693. msg$="Enter ticket system.":GOSUB numreq: NXX=longnum&
  694. IF sel=0 THEN GOTO MAIN
  695. IF MD$ = "2" THEN NXX = NXX + 1
  696. TZ = T: GOSUB TZERO: L = 1: N = 1: NX(T) = NXX: GOSUB LAYOUT: GOTO MAIN
  697.  
  698. TSAVE:
  699. TTT = T: T = TT: GOSUB CHECK: TS = TT: IF CH = 0 THEN TS = TT - 1
  700. T = TTT: LLL=L: NNN=N: GOSUB DCHECK: IF DCH = 1 OR TS = 0 THEN KA = 0: GOTO MAIN
  701. TSV:
  702. SV = 1: FL$ = "Enter save name for data file.":GOSUB freq
  703. IF N$ = "" THEN
  704.    IF KA = 2 THEN GOTO TL1
  705.    GOTO tse
  706. END IF
  707. IF FEXISTS(N$) THEN 
  708.    COLOR 9:LOCATE 2,17
  709.    PRINT " File already exists. Shall I overwrite ? (Y/N)"
  710.    GOSUB CONFIRM: LOCATE 2,1: PRINT SPACE$(80)
  711.    IF E$ = "N" THEN GOTO MAIN
  712. END IF
  713. tsv2:
  714. LOCATE 2, 35: PRINT "SAVING": OPEN N$ FOR OUTPUT AS #1: PRINT #1, FCH2$
  715. WRITE #1, VAL(MD$), TS: FOR T = 1 TO TS: PRINT #1, X$(T); ","; : WRITE #1, GT(T), NX(T)
  716. FOR L = 1 TO GT(T): FOR N = 1 TO NX(T): WRITE #1, D(T, N, L)
  717. NEXT N: NEXT L: NEXT T: SOUND 880,2 
  718. tse:
  719. CLOSE 1: T=TTT: L=LLL: N=NNN: LOCATE 2,35: PRINT SPACE$(10): SV=0
  720. IF KA = 2 THEN GOTO TL1
  721. GOTO MAIN
  722.  
  723. TLOAD:
  724. LLL = L: NNN = N: KA = 2
  725. IF TT = 1 THEN GOSUB CHECK: IF CH = 0 THEN GOTO TL1
  726. COLOR 9: LOCATE 2, 15
  727. PRINT "Shall I save existing data before loading ?  (Y/N)": LOCATE 2, 15
  728. GOSUB CONFIRM: PRINT SPACE$(60): IF E$ = "Y" THEN GOTO TSAVE
  729. TL1:
  730. SV = 0: FL$ = "Select a data file.":GOSUB freq
  731. IF N$ = "" THEN
  732.    IF V = 76 THEN RETURN
  733.    GOTO MAIN
  734. END IF
  735. TLD:
  736. IF NOT FEXISTS(N$) THEN 
  737.    err$="Data file not found": GOSUB erroreq 
  738.    IF ST = 1 THEN P$ = "O": GOTO OPTIONS
  739.    GOTO TL1
  740. END IF
  741. COLOR 9,0: LOCATE 2, 23: IF ST=1 THEN LOCATE 12,23
  742. PRINT "Loading data file.": LOCATE 2, 23: IF ST=1 THEN LOCATE 12,23
  743. STLD:
  744. DFC$ = "": OPEN N$ FOR INPUT AS #1: INPUT #1, DFC$
  745. IF DFC$ <> FCH$ AND DFC$ <> FCH2$ THEN
  746.    PRINT SPACE$(21): err$ = "Not a LOTTO CHECK data file....!!": GOSUB erroreq
  747.    CLOSE 1: IF ST = 1 THEN ST = 2:RETURN
  748.    GOTO TL1 
  749. END IF: IF ST = 0 THEN GOSUB TEDIT
  750. IF DFC$ = FCH$ THEN MD$ = "1" ELSE INPUT #1, MD$
  751. GOSUB TLIMITS
  752. INPUT #1, TT: FOR T = 1 TO TT: INPUT #1, X$(T), GT(T), NX(T)
  753. FOR L = 1 TO GT(T): FOR N = 1 TO NX(T): INPUT #1, D(T, N, L): NEXT N: NEXT L
  754. NEXT T: CLOSE 1: PRINT SPACE$(21): SOUND 880,2 
  755. KA = 0: IF V = 76 OR ST = 1 THEN RETURN
  756. T = 1: GOSUB LAYOUT: GOSUB TICKET: GOTO MAIN
  757.  
  758. TGOTO:
  759. GOSUB DCHECK: IF DCH = 1 THEN GOTO MAIN
  760. TGOT:
  761. TTT = T: NXMN=1: NXMX=TT: msg$="Goto ticket number ?": GOSUB numreq
  762. T=longnum&: IF sel=0 THEN T = TTT
  763. IF Z$ = "G" THEN RETURN
  764. IF sel>0 THEN GOSUB LAYOUT: GOSUB TICKET
  765. GOTO PSY
  766.  
  767. TSORT:
  768. GOSUB DCHECK: IF DCH = 1 THEN GOTO MAIN
  769. TTT = T: T = TT: GOSUB CHECK: TT2 = TT: IF CH = 0 THEN TT2 = TT - 1
  770. COLOR 9: LOCATE 2, 30: PRINT "Sorting all tickets."
  771. FOR T = 1 TO TT2
  772.    FOR L = 1 TO GT(T)
  773.       FOR N = 1 TO NX(T): R(N) = D(T, N, L): NEXT N
  774.       GOSUB RSORT
  775.    NEXT L
  776. NEXT T: T = TTT: SOUND 880,2: GOSUB LAYOUT: GOSUB TICKET: GOTO MAIN
  777.  
  778. RSORT:
  779. NXT = NX(T): IF MD$ = "4" THEN NXT = D(T, 11, L)
  780. IF MD$ = "2" THEN NXT = NX(T) - 1: D(T, NX(T), L) = R(NX(T)): R(NX(T)) = 0
  781. FOR N = 1 TO NXT: NX = NXT - N + 1: D(T, NX, L) = 0: FOR S = 1 TO NXT
  782.      IF R(S) > D(T, NX, L) THEN D(T, NX, L) = R(S): CL = S
  783. NEXT S: R(CL) = 0: NEXT N: RETURN
  784.  
  785. GINSERT:
  786. LLL = L: NNN = N: TA = T: TB = T: TZ = T: NC = NX(T): GT(T) = GT(T) + 1: GL = GT(T) - L - 1
  787. FOR GE = 0 TO GL: LL = GT(T) - GE: LB = LL - 1: GOSUB GCOPY: NEXT GE: LL = LLL
  788. GOSUB GZERO: GOSUB LAYOUT: GOSUB TICKET: L = LLL: N = NNN: GOTO MAIN
  789.  
  790. TINSERT:
  791. GOSUB DCHECK: GOSUB CHECK: IF CH = 0 OR DCH = 1 THEN GOTO MAIN
  792. TTT = T: T = TT: GOSUB CHECK: T = TTT: IF TT = TMX AND CH > 0 THEN GOTO MAIN
  793. LOCATE 23, 30: COLOR 4: PRINT "Inserting ticket.": IF CH > 0 THEN TT = TT + 1
  794. TL = TT - T - 1: FOR TI = 0 TO TL: TA = TT - TI: TB = TA - 1: GOSUB TCOPY: NEXT TI
  795. TZ = T: GOSUB TZERO: L = 1: N = 1: GOSUB LAYOUT: SOUND 880,2: GOTO MAIN
  796.  
  797. TCOPY:
  798. X$(TA) = X$(TB): GT(TA) = GT(TB): NX(TA) = NX(TB): NC = NX(TA)
  799. FOR LL = 1 TO GT(TA): LB = LL: GOSUB GCOPY: NEXT LL: RETURN
  800.  
  801. GCOPY:
  802. FOR NN = 1 TO NC: D(TA, NN, LL) = D(TB, NN, LB): NEXT NN: RETURN
  803.  
  804. TZERO:
  805. X$(TZ) = "": FOR LL = 1 TO GT(TZ): GOSUB GZERO: NEXT LL: RETURN
  806.  
  807. GZERO:
  808. NZ = NX(TZ): IF TZ = 0 AND LL = 0 THEN NZ = 25
  809. FOR NN = 1 TO NZ: D(TZ, NN, LL) = 0: NEXT NN: RETURN
  810.  
  811. TERASE:
  812. GOSUB CHECK: IF T = TT AND CH = 0 THEN GOTO MAIN
  813. LOCATE 23, 30: COLOR 4: PRINT "Erasing ticket."
  814. IF T < TT THEN
  815.    TL = TT - T - 1: FOR TE = 0 TO TL: TA = T + TE: TB = TA + 1: GOSUB TCOPY: NEXT TE
  816. END IF
  817. TZ = TT: GOSUB TZERO: TT = TT - 1: GOSUB LAYOUT: GOSUB TICKET: SOUND 880,2: GOTO MAIN
  818.  
  819. GERASE:
  820. IF GT(T) < 2 THEN GOTO TERASE
  821. LLL = L: NNN = N: TA = T: TB = T: TZ = T: NC = NX(T)
  822. IF L < GT(T) THEN
  823.    GL = GT(T) - L - 1: FOR GE = 0 TO GL: LL = L + GE: LB = LL + 1: GOSUB GCOPY: NEXT GE
  824. END IF
  825. LL = GT(T): GOSUB GZERO: GT(T) = GT(T) - 1: GOSUB LAYOUT: GOSUB TICKET
  826. L = LLL: IF L > GT(T) THEN L = GT(T)
  827. N = NNN: GOTO MAIN
  828.  
  829. TPRINT:
  830. TTT = T: T = TT: GOSUB CHECK: IF CH = 0 THEN TT = TT - 1
  831. IF TT = 0 THEN GOTO MAIN
  832. TPRT:
  833. NNN = N: LLL = L: OPEN PR$ FOR OUTPUT AS 1
  834. IF Z=182 THEN GOSUB TPR: GOTO PREND
  835. IF GCH = 1 THEN PRINT #1, "": GOSUB GPR: GCH = 0: GOTO PREND
  836. FOR T = 1 TO TT: GOSUB TPR: NEXT T: T = TTT
  837. PREND:
  838. CLOSE #1: L = LLL: N = NNN: SOUND 880,2: GOTO MAIN
  839. TPR:
  840. sus = NX(T): GOSUB SYSUSS
  841. PRINT #1, X$(T); SYS$; " ticket"; T; LF$; : SP$ = " ": IF NX(T) = 20 THEN SP$ = ""
  842. FOR L = 1 TO GT(T): GOSUB GPR: NEXT L: PRINT #1, LF$; : RETURN
  843. GPR:
  844. PRINT #1, CHR$(64 + L); "  ";
  845. FOR N = 1 TO NX(T)
  846.    PP$ = STR$(D(T, N, L)): IF D(T, N, L) = 0 THEN PP$ = "   "
  847.    SS$ = "": IF D(T, N, L) > 0 AND D(T, N, L) < 10 THEN SS$ = " "
  848.    PRINT #1, SS$; PP$; SP$;
  849.    IF MD$ = "4" AND N = NX(T) - 1 THEN PRINT #1, "  Spot";
  850.    IF MD$ = "2" AND N = NX(T) - 1 THEN PRINT #1, "  PB";
  851. NEXT N: PRINT #1, "": RETURN
  852.  
  853. CONFIRM:
  854. SOUND 880,2 
  855. DO: SLEEP: E$ = UCASE$(INKEY$): IF E$ = "Y" OR E$ = "N" THEN RETURN
  856. LOOP
  857. PAUSE:
  858. PP$ = CHR$(13): COLOR 15: LOCATE 23, 27: PRINT "PRESS ENTER TO CONTINUE."
  859. PS1:
  860. DO: SLEEP: IF INKEY$ = PP$ THEN RETURN
  861. LOOP
  862.  
  863. TERROR:
  864. IF ERR=5 THEN err$="I think LC2 is already running.": GOSUB erroreq: GOTO TEND
  865. IF ERR=70 AND SV=1 THEN err$="Disk is write protected.":GOSUB erroreq:RESUME tse
  866. IF ERR=61 AND SV=1 THEN err$="Disk is full.":GOSUB erroreq:RESUME tse
  867. err$="Error No"+STR$(ERR)+" not defined."+LF$+"E-mail lory@subdimension.com"+LF$+"Please give details."
  868. GOSUB erroreq: GOTO TEND
  869.  
  870. ABOUT:
  871. WINDOW 2,"",(0,65)-(640,191),16+32+128+256,1:WINDOW OUTPUT 2
  872. FSZ=8:GOSUB font:PRINT:PRINT:COLOR 5
  873. PRINT "  This version of Lotto Check is a result of an AMOS port to VBdos, VBdos port"
  874. PRINT "  to HiSoft Basic, and it was done on an Amiga 1200t equipped with a"
  875. PRINT "  Blizzard 68060 and a Pixel64 graphics card.":PRINT:COLOR 9
  876. PRINT "  Lotto Check v2.1d  Copyright (C) 1994-2001  Lorence Lombardo.":PRINT: COLOR 1
  877. PRINT "  This program is free software; you can redistribute it and/or modify"
  878. PRINT "  it under the terms of the GNU General Public License as published by"
  879. PRINT "  the Free Software Foundation; either version 2 of the License, or"
  880. PRINT "  (at your option) any later version.":PRINT
  881. PRINT "  This program is distributed in the hope that it will be useful,"
  882. PRINT "  but WITHOUT ANY WARRANTY; without even the implied warranty of"
  883. PRINT "  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the"
  884. PRINT "  GNU General Public License for more details.":PRINT:COLOR 2
  885. PRINT "  Feel free to drop me a line at:-";:COLOR 4
  886. PRINT "  lory@subdimension.com";:COLOR 2:PRINT "  :)": GOSUB PAUSE: GOTO OPTIONS
  887.  
  888.  
  889. '--- rtGetLongA ---------------------------------------------------------
  890. numreq:
  891. TAGLIST tagb&, RTGL_ShowDefault&, FALSE&, RT_ReqPos& ,REQPOS_CENTERSCR&, _ 
  892.         RT_Window&, WINDOW(7), RTGS_TextFmt&, msg$, _
  893.         RTGL_Min&, NXMN, RTGL_Max&, NXMX, TAG_END&
  894.         
  895. IF rtGetLongA&(VARPTR(longnum&), SADD("Enter a number:"+nul$), NULL&, tagb&)
  896.    sel=1
  897. ELSE
  898.    sel=0
  899. END IF
  900. RETURN
  901.  
  902. '--- rtFileRequest ------------------------------------------------------
  903. freq:
  904. TAGLIST tagb&, RT_Window&, WINDOW(7) , TAG_END&
  905. filereq& = rtAllocRequestA&(RT_FILEREQ&, NULL&)
  906. IF filereq&
  907.    wbuf&=SADD("LC-DEF.DAT"+nul$)
  908.    IF rtFileRequestA&(filereq&, wbuf&, SADD(FL$+nul$), tagb&)
  909.       f1$=PEEK$(wbuf&):d1$=PEEK$(PEEKL(filereq& + rtfi_Dir%)):N$=d1$+f1$
  910.    ELSE
  911.       N$=""
  912.    END IF
  913.    rtFreeRequest filereq&
  914. END IF
  915. wbuf& = NULL&
  916. RETURN
  917. '--- rtGetStringA -------------------------------------------------------
  918. stringsel:
  919. TAGLIST tagb&, RT_ReqPos& ,REQPOS_CENTERSCR&, RT_Window&, WINDOW(7) , TAG_END&
  920. wbuf&=SADD(def$+nul$)
  921. IF rtGetStringA& (wbuf&, tagptr& - 2, SADD(msg$+nul$), NULL&, tagb&)
  922.    sel=1: ssel$=PEEK$(wbuf&)
  923. ELSE
  924.    sel=0
  925. END IF
  926. wbuf& = NULL&
  927. RETURN
  928.  
  929. '--- rtScreenModeRequest ------------------------------------------------
  930. scrmode:
  931. sel=1: scrmodereq& = rtAllocRequestA&(RT_SCREENMODEREQ&, NULL&)
  932. IF scrmodereq&
  933.    TAGLIST tagb&, RT_Window&, WINDOW(7), TAG_END&        
  934.    IF rtScreenModeRequestA&(scrmodereq&, SADD("Select a screen mode."+nul$),tagb&)
  935.       smodeid& = PEEKL(scrmodereq& + rtsc_DisplayID%)
  936.       swidth% =    PEEKW(scrmodereq& + rtsc_DisplayWidth%)
  937.       sheight% = PEEKW(scrmodereq& + rtsc_DisplayHeight%)
  938.       sdepth% =    PEEKW(scrmodereq& + rtsc_DisplayDepth%)
  939.      
  940.       IF swidth%<640 OR sheight%<256 OR sdepth%<4
  941.          err$="Screen must be at least 640x256x4": GOSUB erroreq: GOTO scrmode
  942.       ELSE
  943.           scm& = smodeid&
  944.       END IF 
  945.    ELSE
  946.       sel=0
  947.    END IF
  948.    rtFreeRequest scrmodereq&
  949. END IF
  950. IF sel=0 THEN RETURN
  951. PRF=1
  952.  
  953. scmode:
  954. SCREEN 1,640,256,4,5,scm& 
  955. WINDOW 1,"",(0,11)-(640,245),16+32+64+128+256,1:WINDOW OUTPUT 1
  956.  
  957. PALETTE 0,.7,.7,.7:PALETTE 1,0,0,0:PALETTE 2,1,1,1:PALETTE 3,1,0,1:PALETTE 4,0,1,0
  958. PALETTE 5,0,0,1:PALETTE 6,1,0,0:PALETTE 7,1,1,0:PALETTE 8,0,1,1:PALETTE 9,.9,.3,.3
  959. PALETTE 10,.5,0,0:PALETTE 11,.3,.3,1:PALETTE 12,.7,.2,.8:PALETTE 13,.1,.6,.1
  960. PALETTE 14,.8,.6,0:PALETTE 15,.8,.8,.8
  961.  
  962. FSZ=9:GOSUB font: CLS: DrawImage WINDOW(8), lc2k_img&, 0%, 1%
  963. LOCATE 7:COLOR 2,5
  964. PRINT "             Enter `O' for options and `Q' to quit.             "
  965. RETURN
  966.  
  967. erroreq:
  968. SOUND 880,2
  969. TAGLIST tagb&, RT_Window&, WINDOW(7) , RTEZ_ReqTitle& , " Error...!!!", TAG_END&
  970. req&=rtEZRequestA& (SADD(err$+nul$), SADD("ok"+nul$), NULL&, NULL&, tagb&)
  971. RETURN
  972.  
  973.  
  974. font:
  975. InitTextAttr TextAttr(),"topaz.font",FSZ,0,0
  976. font& = OpenDiskFont (VARPTR(TextAttr(0)))
  977. SetFont WINDOW (8), font&
  978. RETURN
  979.  
  980. TEND:
  981. IF PRF=1 THEN 
  982.    OPEN "ENVARC:LC2.prefs" FOR OUTPUT AS #1: PRINT #1, scm&, PR$: CLOSE 1
  983. END IF
  984. SCREEN CLOSE 1: END
  985.  
  986.  
  987. lcpic:
  988. lc2k_img& = StructImage& (0%,0%,640%,49%,4%,15680&,lc2kdata&,15%,0%,0&)
  989. RESTORE LC2K_IMAGE
  990. FOR zaehler& = 0& TO 15679& STEP 2%
  991.     READ wert%
  992.      POKEW lc2kdata& + zaehler&, wert%
  993. NEXT zaehler&
  994. RETURN
  995.  
  996. LC2K_IMAGE:
  997.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  998.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  999.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1000.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1001.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1002.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1003.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1004.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1005.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1006.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1007.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1008.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1009.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1010.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1011.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1012.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1013.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1014.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1015.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1016.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1017.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1018.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1019.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1020.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1021.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1022.     DATA &HFFFF, &HFFFF, &HC000, &HFFFF, &HFFFF, &HFC00, &H0000, &H0FFC
  1023.     DATA &H0000, &H0000, &H00F0, &H0000, &H0000, &H03FF, &H0000, &H0003
  1024.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HF0FF, &HFFFF, &HFFFF, &HFFC0
  1025.     DATA &H0000, &H00FF, &HC000, &HFFFC, &H000F, &H0000, &H0000, &H003F
  1026.     DATA &HF000, &H0000, &H3FF0, &H003F, &HFFFF, &HC03F, &HFFFF, &HFFFF
  1027.     DATA &HFFFF, &HFFFF, &HC000, &HFFFF, &HFFFF, &HC000, &H0000, &H00FC
  1028.     DATA &H0000, &H0000, &H00F0, &H0000, &H0000, &H03F0, &H0000, &H0000
  1029.     DATA &H3FFF, &HFFFF, &HFFFF, &HF003, &HF0FF, &HFFFF, &HFFFF, &HFC00
  1030.     DATA &H0000, &H000F, &HC000, &HFFFC, &H000F, &H0000, &H0000, &H003F
  1031.     DATA &H0000, &H0000, &H03F0, &H003F, &HFFFF, &H003F, &HFFFF, &HFFFF
  1032.     DATA &HFFFF, &HFFFF, &HF333, &HFFFF, &HFFFF, &H3333, &HFFF3, &H333F
  1033.     DATA &HFFF3, &H333F, &HFFFF, &HFFF3, &H33FF, &HFFF3, &H333F, &HF333
  1034.     DATA &H3FFF, &HFFFF, &HFFFF, &HF00F, &HF03F, &HFFFF, &HFFFF, &HF333
  1035.     DATA &H3FFF, &H3333, &HF333, &HFFFF, &H333F, &H3333, &HFFFF, &HFFFF
  1036.     DATA &H3333, &HFF33, &H33F3, &H333F, &HFFFF, &H33FF, &HFFFF, &HFFFF
  1037.     DATA &HFFFF, &HFFFF, &HC000, &HFFFF, &HFFFF, &H0003, &HFFF0, &H003F
  1038.     DATA &HFFF0, &H003F, &HFFFF, &HFFC0, &H00FF, &HFFC0, &H00FF, &HFC00
  1039.     DATA &H0FFF, &HFFFF, &HFFFC, &HC000, &HF00F, &HFFFF, &HFFFF, &HF000
  1040.     DATA &H3FFF, &H0003, &HC000, &HFFFC, &H000F, &H0003, &HFFFF, &HFFFC
  1041.     DATA &H000F, &HFFC0, &H00F0, &H003F, &HFFF0, &H03FF, &HFFFF, &HFFFF
  1042.     DATA &HFFFF, &HFFFF, &HF333, &HFFFF, &HFFFF, &H3333, &HFFF3, &H333F
  1043.     DATA &HFFF3, &H333F, &HFFFF, &HFFF3, &H33FF, &HFFF3, &H33FF, &HFF33
  1044.     DATA &H3FFF, &HFFFF, &HFFF0, &H0000, &H3003, &HFFFF, &HFFFF, &HF333
  1045.     DATA &H3FFF, &H3333, &HF333, &HFFFF, &H333F, &H3333, &HFFFF, &HFFFF
  1046.     DATA &H333F, &HFFF3, &H33F3, &H333F, &HFFF3, &H3FFF, &HFFFF, &HFFFF
  1047.     DATA &HFFFF, &HFFFF, &HC0CC, &HFFFF, &HFFFF, &HC0CF, &HFFFC, &HC0FF
  1048.     DATA &HFFFC, &HC0FF, &HFFFF, &HFFCC, &HC0FF, &HFFCC, &HC0FF, &HFCCC
  1049.     DATA &HCFFF, &HFFFF, &HFFF0, &H0000, &H0003, &HFFFF, &HFFFF, &HF0CC
  1050.     DATA &HFFFF, &HC0CF, &HC0CC, &HFFFC, &HC0CF, &HC0CF, &HFFFF, &HFFFC
  1051.     DATA &HC0CF, &HFFCC, &HC0FC, &HC0FF, &HFFCC, &HFFFF, &HFFFF, &HFFFF
  1052.     DATA &HFFFF, &HFFFF, &HF333, &HFFFF, &HFFFF, &H3333, &HFFF3, &H333F
  1053.     DATA &HFFF3, &H333F, &HFFFF, &HFFF3, &H33FF, &HFFF3, &H33FF, &HFF33
  1054.     DATA &H3FFF, &HFFFF, &HFFC0, &H0000, &H0000, &HFFFF, &HFFFF, &HF333
  1055.     DATA &H3FFF, &HFFFF, &HF333, &HFFFF, &H333F, &H3333, &HFFFF, &HFFFF
  1056.     DATA &H333F, &HFFFF, &HFFF3, &H333F, &HFF33, &HFFFF, &HFFFF, &HFFFF
  1057.     DATA &HFFFF, &HFFFF, &HCFCF, &HFFFF, &HFFFF, &HCFCF, &HFFFF, &HCFFF
  1058.     DATA &HFFFF, &HCFFF, &HFFFF, &HFFCF, &HCFFF, &HFFCF, &HCFFF, &HFFCF
  1059.     DATA &HCFFF, &HFFFF, &HFF00, &H0000, &H0000, &H3FFF, &HFFFF, &HFFCF
  1060.     DATA &HFFFF, &HFFFF, &HCFCF, &HFFFF, &HCFCF, &HCFCF, &HFFFF, &HFFFF
  1061.     DATA &HCFCF, &HFFFF, &HFFFF, &HCFFF, &HFFCF, &HFFFF, &HFFFF, &HFFFF
  1062.     DATA &HFFFF, &HFFFF, &HF333, &HFFFF, &HFFFF, &H3333, &HFFF3, &H333F
  1063.     DATA &HFFF3, &H333F, &HFFFF, &HFFF3, &H33FF, &HFFF3, &H33FF, &HFF33
  1064.     DATA &H3FFF, &HFFFF, &HF000, &H0000, &H0000, &H3FFF, &HFFFF, &HF333
  1065.     DATA &H3FFF, &HFFFF, &HF333, &HFFFF, &H333F, &H3333, &HFFFF, &HFFFF
  1066.     DATA &H333F, &HFFFF, &HFFF3, &H333F, &HF33F, &HFFFF, &HFFFF, &HFFFF
  1067.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1068.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1069.     DATA &HFFFF, &HFFFF, &HC000, &H0000, &H0000, &H0FFF, &HFFFF, &HFFFF
  1070.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1071.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1072.     DATA &HFFFF, &HFFFF, &HF3F3, &HFFFF, &HFFFF, &HF3F3, &HFFF3, &HF3FF
  1073.     DATA &HFFF3, &HF3FF, &HFFFF, &HFFF3, &HF3FF, &HFFF3, &HF3FF, &HFFF3
  1074.     DATA &HFFFF, &HFFFF, &HC000, &H0000, &H0000, &H03FF, &HFFFF, &HF3F3
  1075.     DATA &HFFFF, &HFFFF, &HF3F3, &HF3F3, &HF3FF, &HF3F3, &HF3F3, &HFFFF
  1076.     DATA &HF3FF, &HFFFF, &HFFF3, &HF3FF, &HF3FF, &HFFFF, &HFFFF, &HFFFF
  1077.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1078.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1079.     DATA &HFFFF, &HFFFF, &H0000, &H0000, &H0000, &H03FF, &HFFFF, &HFFFF
  1080.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1081.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1082.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1083.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1084.     DATA &HFFFF, &HFFFF, &HC000, &H0000, &H0000, &H03FF, &HFFFF, &HFFFF
  1085.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1086.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1087.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1088.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1089.     DATA &HFFFF, &HFFFF, &HC000, &H0000, &H0000, &H03FF, &HFFFF, &HFFFF
  1090.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1091.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1092.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1093.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1094.     DATA &HFFFF, &HFFFF, &HF000, &H0000, &H0000, &H0FFF, &HFFFF, &HFFFF
  1095.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1096.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1097.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1098.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1099.     DATA &HFFFF, &HFFFF, &HF000, &H0000, &H0000, &H0FFF, &HFFFF, &HFFFF
  1100.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1101.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1102.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1103.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1104.     DATA &HFFFF, &HFFFF, &HF000, &H3FC0, &H0000, &H3FFF, &HFFFF, &HFFFF
  1105.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1106.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1107.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1108.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1109.     DATA &HFFFF, &HFFFF, &HFC03, &HFFF3, &H0000, &H3FFF, &HFFFF, &HFFFF
  1110.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1111.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1112.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1113.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1114.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &H0000, &HFFFF, &HFFFF, &HFFFF
  1115.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1116.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1117.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1118.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1119.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HC003, &HFFFF, &HFFFF, &HFFFF
  1120.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1121.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1122.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1123.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1124.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HF00F, &HFFFF, &HFFFF, &HFFFF
  1125.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1126.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1127.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1128.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1129.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1130.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1131.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1132.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1133.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1134.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFF0F, &HFFFF, &HFFFF, &HFFFF
  1135.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1136.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1137.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1138.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1139.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFF3F, &HFFFF, &HFFFF, &HFFFF
  1140.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1141.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1142.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1143.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1144.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1145.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1146.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1147.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1148.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1149.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1150.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1151.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1152.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1153.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1154.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1155.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1156.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1157.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1158.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1159.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1160.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1161.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1162.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1163.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFC, &H00FF, &HFFFF
  1164.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1165.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1166.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1167.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &H0C3F, &HFFFF, &HFFFF, &HFFFF
  1168.     DATA &HFFFF, &HFFFF, &HC0FF, &HFFF0, &HFFFF, &HFFF3, &HFF3F, &HFC3F
  1169.     DATA &H03F0, &H3FF0, &HFFFF, &H03F0, &H3F03, &HFC3F, &HFFFF, &HFC3F
  1170.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFC3F, &HFFFF, &HFFC3
  1171.     DATA &HFFFF, &HFFFF, &HF0FF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1172.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &H0C3F, &HFFFF, &HFFFF, &HC3FF
  1173.     DATA &HFFFF, &HFFFF, &H0C3F, &HFFC0, &HFFFF, &HFFCF, &HFFCF, &HF03C
  1174.     DATA &H30C3, &H0FC0, &HFFFC, &H30C3, &H0C30, &HF03F, &HFFFF, &HFC3F
  1175.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFC3F, &HFFFF, &HFFC3
  1176.     DATA &HFFFF, &HFFFF, &HF0FF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1177.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &H0C3F, &HFFFF, &HFFFF, &HFFFF
  1178.     DATA &HFFFF, &HFFFF, &HFC3F, &HFFF0, &HFFFF, &HFF3F, &H03F3, &HFC3C
  1179.     DATA &H30C3, &H0F00, &HFFFF, &HF0C3, &H0C30, &HFC3F, &HFFFF, &HFC3F
  1180.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFC3F, &HFFFF, &HFFC3
  1181.     DATA &HFFFF, &HFFFF, &HF0FF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1182.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &H0C3C, &H0F00, &HFC03, &H03FC
  1183.     DATA &H0F00, &HFFFF, &HF0FF, &HFFF0, &HFFFF, &HFF3C, &H30F3, &HFC3C
  1184.     DATA &H30C3, &H0C30, &HFFFF, &HC3C3, &H0C30, &HFC3F, &HFFFF, &HFC3F
  1185.     DATA &HF03C, &H03F0, &H3C03, &HF03F, &H03FF, &HFC3F, &HF03C, &H33C0
  1186.     DATA &H3F03, &HC03F, &H00F0, &H3FFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1187.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HC0F0, &HC30C, &H30FF, &HC3F0
  1188.     DATA &HC30C, &H3FFF, &HC3FF, &HFFF0, &HFFFF, &HFF3C, &H3FF3, &HFC3F
  1189.     DATA &H00F0, &H0C00, &HC00F, &H0FC3, &H0C30, &HFC3F, &HFFFF, &HFC3F
  1190.     DATA &HC30C, &H30C3, &H0C30, &HC30C, &H30FF, &HFC3F, &HC30C, &H00C3
  1191.     DATA &H0FF0, &HC30C, &H30C3, &H0FFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1192.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HC0F0, &H030F, &HFC0F, &HC3F0
  1193.     DATA &HC30C, &H3FFF, &H0FFF, &HFFF0, &HFFFF, &HFF3C, &H30F3, &HFC3F
  1194.     DATA &HF0FF, &H0FF0, &HFFFC, &H3FC3, &H0C30, &HFC3F, &HFFFF, &HFC3F
  1195.     DATA &HC30C, &H3FC0, &H0C30, &HC3FC, &H00FF, &HFC3F, &HC30C, &H00C3
  1196.     DATA &H0F00, &HC3FC, &H30C3, &H0FFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1197.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HF3F0, &HFF0F, &HFFC3, &HC3F0
  1198.     DATA &HC30C, &H3FFF, &H0FFC, &H3FF0, &HFFFF, &HFF3F, &H03F3, &HFC3F
  1199.     DATA &HC3FC, &H3FF0, &HFFFC, &H3FC3, &H0C30, &HFC3F, &HFFFF, &HFC3C
  1200.     DATA &HC30C, &H3FC3, &HFC30, &HC30C, &H3FFF, &HFC3C, &HC30C, &H30C3
  1201.     DATA &H0C30, &HC3FC, &H30C3, &H0F0F, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1202.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HF3FC, &H030F, &HF00F, &H00FC
  1203.     DATA &H0F0C, &H3FFF, &H003C, &H3FC0, &H3FFF, &HFFCF, &HFFCF, &HF00C
  1204.     DATA &H0FC0, &HFFF0, &HFFFC, &H00F0, &H3F03, &HF00F, &HFFFF, &HFC00
  1205.     DATA &HF03C, &H3FF0, &H0C30, &HF03F, &H00FF, &HFC00, &HF03C, &H30F0
  1206.     DATA &H3F0C, &HC3FF, &H00F0, &H3F0F, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1207.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1208.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFF3, &HFF3F, &HFFFF
  1209.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1210.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1211.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1212.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1213.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFC, &H00FF, &HFFFF
  1214.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1215.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1216.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1217.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1218.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1219.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1220.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1221.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1222.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1223.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1224.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1225.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1226.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1227.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1228.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1229.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1230.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1231.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1232.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1233.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1234.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1235.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1236.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1237.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1238.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1239.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1240.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1241.     DATA &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF, &HFFFF
  1242.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1243.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1244.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1245.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1246.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1247.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1248.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1249.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1250.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1251.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1252.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1253.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1254.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1255.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1256.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1257.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1258.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1259.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1260.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1261.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1262.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1263.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1264.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1265.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1266.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1267.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1268.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1269.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1270.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1271.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0030, &H0000, &H0000
  1272.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1273.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1274.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1275.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1276.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1277.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3333, &H0033, &H3300
  1278.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1279.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1280.     DATA &H3003, &H3330, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1281.     DATA &H3330, &H0033, &H3303, &H3300, &H0003, &H3300, &H0000, &H0000
  1282.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1283.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1284.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1285.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1286.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1287.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1288.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1289.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1290.     DATA &H0000, &H3330, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1291.     DATA &H3330, &H0033, &H3303, &H3300, &H0033, &H3000, &H0000, &H0000
  1292.     DATA &H0000, &H0000, &H00CC, &H0000, &H0000, &HC0CC, &H000C, &HC0C0
  1293.     DATA &H000C, &HC0C0, &H0000, &H000C, &HC000, &H000C, &HC000, &H00CC
  1294.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H00CC
  1295.     DATA &HC000, &HC0CC, &H00CC, &H0000, &HC0C0, &HC0CC, &H0000, &H0000
  1296.     DATA &HC0C0, &H000C, &HC00C, &HC0C0, &H00CC, &HC000, &H0000, &H0000
  1297.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1298.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1299.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1300.     DATA &H0000, &H0000, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1301.     DATA &H3330, &H0000, &H0003, &H3300, &H0333, &H0000, &H0000, &H0000
  1302.     DATA &H0000, &H0000, &H0FCF, &H0000, &H0000, &HCFCC, &H000F, &HCFC0
  1303.     DATA &H000F, &HCFC0, &H0000, &H000F, &HCF00, &H000F, &HCF00, &H03CF
  1304.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FCF
  1305.     DATA &HC000, &H0000, &H0FCF, &H0003, &HCFC0, &HCFCC, &H0000, &H0003
  1306.     DATA &HCFC0, &H0000, &H000F, &HCFC0, &H0FCC, &H0000, &H0000, &H0000
  1307.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1308.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1309.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1310.     DATA &H0000, &H0000, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1311.     DATA &H3330, &H0000, &H0003, &H3300, &H3330, &H0000, &H0000, &H0000
  1312.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1313.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1314.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1315.     DATA &HC000, &H0000, &H3FFF, &HFFFF, &HFFF0, &HFFFF, &HFFFF, &HC003
  1316.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &HFFC0, &H0000, &H0000, &H0000
  1317.     DATA &H0000, &H0000, &H33F3, &H0000, &H0000, &HF3F0, &H0003, &HF3C0
  1318.     DATA &H0003, &HF3C0, &H0000, &H0033, &HF300, &H0033, &HF300, &H03F3
  1319.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03F3
  1320.     DATA &HC000, &H0000, &H33F3, &HF3F3, &HF3F0, &HF3F3, &HF3F3, &HC003
  1321.     DATA &HF3F0, &H0000, &H0003, &HF3C3, &HF300, &H0000, &H0000, &H0000
  1322.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1323.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1324.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1325.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1326.     DATA &HFFF0, &H0000, &H000F, &HFFCF, &HFC00, &H0000, &H0000, &H0000
  1327.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1328.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1329.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1330.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1331.     DATA &HFFF0, &H0000, &H000F, &HFFFF, &HFF00, &H0000, &H0000, &H0000
  1332.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1333.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1334.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1335.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1336.     DATA &HFFF0, &H0000, &H000F, &HFFFF, &HFFC0, &H0000, &H0000, &H0000
  1337.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1338.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1339.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1340.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1341.     DATA &HFFF0, &H0000, &H000F, &HFFFF, &HFFF0, &H0000, &H0000, &H0000
  1342.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1343.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1344.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1345.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1346.     DATA &HFFF0, &H0000, &H000F, &HFFF3, &HFFFC, &H0000, &H0000, &H0000
  1347.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1348.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1349.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1350.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1351.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &HFFFF, &H0000, &H0000, &H0000
  1352.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1353.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1354.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1355.     DATA &HC000, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1356.     DATA &HFFF0, &H003F, &HFF0F, &HFFC0, &H3FFF, &HC000, &H0000, &H0000
  1357.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1358.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1359.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1360.     DATA &HC000, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1361.     DATA &HFFF0, &H003F, &HFF0F, &HFFC0, &H0FFF, &HF000, &H0000, &H0000
  1362.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1363.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1364.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1365.     DATA &HC000, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1366.     DATA &HFFF0, &H003F, &HFF0F, &HFFC0, &H03FF, &HFC00, &H0000, &H0000
  1367.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFF, &H003F, &HFFC0
  1368.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFFC0, &H0FFF
  1369.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1370.     DATA &HF003, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1371.     DATA &HFFFC, &H00FF, &HFF0F, &HFFC0, &H00FF, &HFF00, &H0000, &H0000
  1372.     DATA &H0000, &H0000, &H3FFF, &HFFFF, &HFFF0, &H3FFF, &HFFFF, &HFF00
  1373.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H000F, &HFFFF, &HFFFF
  1374.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03FF
  1375.     DATA &HFFFF, &HFFF0, &H3FFF, &H0003, &HFFF0, &HFFFF, &HFFFF, &HFFC0
  1376.     DATA &HFFFF, &HFFFF, &HFC0F, &HFFC0, &H003F, &HFFC0, &H0000, &H0000
  1377.     DATA &H0000, &H0000, &H3FFF, &HFFFF, &HFFF0, &H03FF, &HFFFF, &HF000
  1378.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H0000, &HFFFF, &HFFFC
  1379.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H003F
  1380.     DATA &HFFFF, &HFF00, &H3FFF, &H0003, &HFFF0, &HFFFF, &HFFFF, &HFFC0
  1381.     DATA &H0FFF, &HFFFF, &HC00F, &HFFC0, &H000F, &HFFF0, &H0000, &H0000
  1382.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1383.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1384.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1385.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1386.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1387.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1388.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1389.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1390.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1391.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1392.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1393.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1394.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1395.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1396.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1397.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1398.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1399.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1400.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1401.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1402.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1403.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1404.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1405.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1406.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1407.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1408.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1409.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1410.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1411.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1412.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1413.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1414.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1415.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1416.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1417.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1418.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1419.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1420.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1421.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1422.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1423.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1424.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1425.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1426.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1427.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1428.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1429.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1430.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1431.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1432.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1433.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1434.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1435.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1436.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1437.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1438.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1439.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1440.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1441.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1442.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1443.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1444.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1445.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1446.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1447.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1448.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1449.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1450.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1451.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1452.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1453.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1454.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1455.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1456.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1457.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1458.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1459.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1460.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1461.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1462.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1463.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1464.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1465.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1466.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1467.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1468.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1469.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1470.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1471.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1472.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1473.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1474.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1475.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1476.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1477.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1478.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1479.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1480.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1481.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1482.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1483.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1484.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1485.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1486.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1487.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1488.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1489.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1490.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1491.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1492.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1493.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1494.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1495.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1496.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1497.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1498.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1499.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1500.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1501.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1502.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1503.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1504.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1505.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1506.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1507.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1508.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1509.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1510.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1511.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1512.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &H03FF, &HFFFF, &HF003
  1513.     DATA &HFFFF, &HFFFF, &HFF0F, &HFFFF, &HFFFF, &HFC00, &HFFFF, &HFFFC
  1514.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H003F
  1515.     DATA &HFFFF, &HFF00, &H3FFF, &H0003, &HFFF0, &HFFFF, &HFFFF, &HFFC0
  1516.     DATA &H0FFF, &HFFFF, &HC00F, &HFFC0, &H0000, &H3FF0, &H0000, &H0000
  1517.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &H3FFF, &HFFFF, &HFF03
  1518.     DATA &HFFFF, &HFFFF, &HFF0F, &HFFFF, &HFFFF, &HFC0F, &HFFFF, &HFFFF
  1519.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03FF
  1520.     DATA &HFFFF, &HFFF0, &H3FFF, &H0003, &HFFF0, &HFFFF, &HFFFF, &HFFC0
  1521.     DATA &HFFFF, &HFFFF, &HFC0F, &HFFC0, &H0000, &HFFC0, &H0000, &H0000
  1522.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFF, &H003F, &HFFC0
  1523.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFFC0, &H0FFF
  1524.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1525.     DATA &HF003, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1526.     DATA &HFFFC, &H00FF, &HFF0F, &HFFC0, &H0003, &HFF00, &H0000, &H0000
  1527.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1528.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1529.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1530.     DATA &HC000, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1531.     DATA &HFFF0, &H003F, &HFF0F, &HFFC0, &H000F, &HFC00, &H0000, &H0000
  1532.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1533.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1534.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1535.     DATA &HC000, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1536.     DATA &HFFF0, &H003F, &HFF0F, &HFFC0, &H003F, &HF000, &H0000, &H0000
  1537.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1538.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1539.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1540.     DATA &HC000, &HFFFC, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1541.     DATA &HFFF0, &H003F, &HFF0F, &HFFC0, &H00FF, &HC000, &H0000, &H0000
  1542.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1543.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1544.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1545.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1546.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &H03FF, &H0000, &H0000, &H0000
  1547.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1548.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1549.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1550.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1551.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &H0FFC, &H0000, &H0000, &H0000
  1552.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1553.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1554.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1555.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1556.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &H3FF0, &H0000, &H0000, &H0000
  1557.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1558.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1559.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1560.     DATA &HC000, &H0000, &H3FFF, &HFFFF, &HFFF0, &HFFFF, &HFFFF, &HC003
  1561.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &HFFC0, &H0000, &H0000, &H0000
  1562.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1563.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1564.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1565.     DATA &HC000, &H0000, &H3FFF, &HFFFF, &HFFF0, &HFFFF, &HFFFF, &HC003
  1566.     DATA &HFFF0, &H0000, &H000F, &HFFC3, &HFF00, &H0000, &H0000, &H0000
  1567.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1568.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1569.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1570.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1571.     DATA &HFFF0, &H0000, &H000F, &HFFCF, &HFC00, &H0000, &H0000, &H0000
  1572.     DATA &H0000, &H0000, &H3FFC, &H0000, &H0000, &HFFFC, &H000C, &HFFC0
  1573.     DATA &H000C, &HFFC0, &H0000, &H003C, &HFF00, &H003C, &HFF00, &H03FC
  1574.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFC
  1575.     DATA &HC000, &H0000, &H3FFC, &H0000, &HFFF0, &HFFFC, &H0000, &H0000
  1576.     DATA &HFFF0, &H0000, &H000C, &HFFFC, &HFF00, &H0000, &H0000, &H0000
  1577.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1578.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1579.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1580.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1581.     DATA &HFFF0, &H0000, &H000F, &HFFFF, &HFFC0, &H0000, &H0000, &H0000
  1582.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1583.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCC00, &H00CC
  1584.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1585.     DATA &HC000, &H0000, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1586.     DATA &HCCC0, &H0000, &H000C, &HCCCC, &HCCC0, &H0000, &H0000, &H0000
  1587.     DATA &H0000, &H0000, &H33F3, &H0000, &H0000, &HF3F0, &H0003, &HF3C0
  1588.     DATA &H0003, &HF3C0, &H0000, &H0033, &HF300, &H0033, &HF300, &H03F3
  1589.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03F3
  1590.     DATA &HC000, &H0000, &H33F3, &H0003, &HF3F0, &HF3F0, &H0000, &H0003
  1591.     DATA &HF3F0, &H0000, &H0003, &HF3F3, &HF3F0, &H0000, &H0000, &H0000
  1592.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1593.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCC00, &H00CC
  1594.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1595.     DATA &HC000, &H0000, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1596.     DATA &HCCC0, &H0000, &H000C, &HCCC0, &HCCCC, &H0000, &H0000, &H0000
  1597.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1598.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1599.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1600.     DATA &H0000, &H3330, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1601.     DATA &H3330, &H0033, &H3303, &H3300, &H3333, &H0000, &H0000, &H0000
  1602.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1603.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCC00, &H00CC
  1604.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1605.     DATA &HC000, &HCCCC, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1606.     DATA &HCCC0, &H000C, &HCC0C, &HCCC0, &H0CCC, &HC000, &H0000, &H0000
  1607.     DATA &H0000, &H0000, &H3030, &H0000, &H0000, &H3030, &H0000, &H3000
  1608.     DATA &H0000, &H3000, &H0000, &H0030, &H3000, &H0030, &H3000, &H0030
  1609.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0030
  1610.     DATA &H0000, &H3030, &H3030, &H0000, &H3030, &H3030, &H0000, &H0000
  1611.     DATA &H3030, &H0030, &H3000, &H3000, &H0030, &H3000, &H0000, &H0000
  1612.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1613.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCCC0, &H0CCC
  1614.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1615.     DATA &HC000, &HCCCC, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1616.     DATA &HCCCC, &H00CC, &HCC0C, &HCCC0, &H00CC, &HCC00, &H0000, &H0000
  1617.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1618.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1619.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1620.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1621.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1622.     DATA &H0000, &H0000, &H0C00, &H0C00, &H0C00, &H0000, &H0C00, &H0000
  1623.     DATA &H0000, &H0C00, &H0000, &H0000, &H0C00, &H0000, &H0C00, &H0C00
  1624.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1625.     DATA &H0C00, &H0C00, &H0C00, &H0000, &H0C00, &H0C00, &H0C00, &H0C00
  1626.     DATA &H0C00, &H0C00, &H0000, &H0C00, &H0000, &H0C30, &H0000, &H0000
  1627.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1628.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1629.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1630.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1631.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1632.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1633.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1634.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1635.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1636.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1637.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1638.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1639.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1640.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1641.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1642.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1643.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1644.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1645.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1646.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1647.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1648.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1649.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1650.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1651.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1652.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1653.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1654.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1655.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1656.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1657.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1658.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1659.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1660.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1661.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1662.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1663.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1664.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1665.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1666.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1667.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1668.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1669.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1670.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1671.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1672.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1673.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1674.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1675.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1676.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1677.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1678.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1679.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1680.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1681.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1682.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1683.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1684.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1685.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1686.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1687.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1688.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1689.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1690.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1691.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1692.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1693.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1694.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1695.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1696.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1697.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1698.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1699.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1700.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1701.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1702.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1703.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1704.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1705.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1706.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1707.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1708.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1709.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1710.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1711.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1712.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1713.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1714.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1715.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1716.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1717.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1718.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1719.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1720.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1721.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1722.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1723.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1724.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1725.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1726.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1727.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1728.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1729.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1730.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1731.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1732.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1733.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1734.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1735.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1736.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1737.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1738.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1739.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1740.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1741.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1742.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1743.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1744.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1745.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1746.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1747.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1748.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1749.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1750.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1751.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1752.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1753.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1754.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1755.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1756.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1757.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1758.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1759.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1760.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1761.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0030, &H0000, &H0000
  1762.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1763.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1764.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1765.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1766.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1767.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3333, &H0033, &H3300
  1768.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1769.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1770.     DATA &H3003, &H3330, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1771.     DATA &H3330, &H0033, &H3303, &H3300, &H0003, &H3300, &H0000, &H0000
  1772.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1773.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1774.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1775.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1776.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1777.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1778.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1779.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1780.     DATA &H0000, &H3330, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1781.     DATA &H3330, &H0033, &H3303, &H3300, &H0033, &H3000, &H0000, &H0000
  1782.     DATA &H0000, &H0000, &H00CC, &H0000, &H0000, &HC0CC, &H000C, &HC0C0
  1783.     DATA &H000C, &HC0C0, &H0000, &H000C, &HC000, &H000C, &HC000, &H00CC
  1784.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H00CC
  1785.     DATA &HC000, &HC0CC, &H00CC, &H0000, &HC0C0, &HC0CC, &H0000, &H0000
  1786.     DATA &HC0C0, &H000C, &HC00C, &HC0C0, &H00CC, &HC000, &H0000, &H0000
  1787.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1788.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1789.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1790.     DATA &H0000, &H0000, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1791.     DATA &H3330, &H0000, &H0003, &H3300, &H0333, &H0000, &H0000, &H0000
  1792.     DATA &H0000, &H0000, &H0FCF, &H0000, &H0000, &HCFCC, &H000F, &HCFC0
  1793.     DATA &H000F, &HCFC0, &H0000, &H000F, &HCF00, &H000F, &HCF00, &H03CF
  1794.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FCF
  1795.     DATA &HC000, &H0000, &H0FCF, &H0003, &HCFC0, &HCFCC, &H0000, &H0003
  1796.     DATA &HCFC0, &H0000, &H000F, &HCFC0, &H0FCC, &H0000, &H0000, &H0000
  1797.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1798.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1799.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1800.     DATA &H0000, &H0000, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1801.     DATA &H3330, &H0000, &H0003, &H3300, &H3330, &H0000, &H0000, &H0000
  1802.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1803.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1804.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1805.     DATA &HC000, &H0000, &H3FFF, &HFFFF, &HFFF0, &HFFFF, &HFFFF, &HC003
  1806.     DATA &HFFF0, &H0000, &H000F, &HFFC0, &HFFC0, &H0000, &H0000, &H0000
  1807.     DATA &H0000, &H0000, &H33F3, &H0000, &H0000, &HF3F0, &H0003, &HF3C0
  1808.     DATA &H0003, &HF3C0, &H0000, &H0033, &HF300, &H0033, &HF300, &H03F3
  1809.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03F3
  1810.     DATA &HC000, &H0000, &H33F3, &HF3F3, &HF3F0, &HF3F3, &HF3F3, &HC003
  1811.     DATA &HF3F0, &H0000, &H0003, &HF3C3, &HF300, &H0000, &H0000, &H0000
  1812.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1813.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1814.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1815.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1816.     DATA &HFFF0, &H0000, &H000F, &HFFCF, &HFC00, &H0000, &H0000, &H0000
  1817.     DATA &H0000, &H0000, &H3FFC, &H0000, &H0000, &HFFFC, &H000C, &HFFC0
  1818.     DATA &H000C, &HFFC0, &H0000, &H003C, &HFF00, &H003C, &HFF00, &H03FC
  1819.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFC
  1820.     DATA &HC000, &H0000, &H3FFC, &H0000, &HFFF0, &HFFFC, &H0000, &H0000
  1821.     DATA &HFFF0, &H0000, &H000C, &HFFFC, &HFF00, &H0000, &H0000, &H0000
  1822.     DATA &H0000, &H0000, &H3FFF, &H0000, &H0000, &HFFFC, &H000F, &HFFC0
  1823.     DATA &H000F, &HFFC0, &H0000, &H003F, &HFF00, &H003F, &HFF00, &H03FF
  1824.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0FFF
  1825.     DATA &HC000, &H0000, &H3FFF, &H0003, &HFFF0, &HFFFC, &H0000, &H0003
  1826.     DATA &HFFF0, &H0000, &H000F, &HFFFF, &HFFC0, &H0000, &H0000, &H0000
  1827.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1828.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCC00, &H00CC
  1829.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1830.     DATA &HC000, &H0000, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1831.     DATA &HCCC0, &H0000, &H000C, &HCCCC, &HCCC0, &H0000, &H0000, &H0000
  1832.     DATA &H0000, &H0000, &H33F3, &H0000, &H0000, &HF3F0, &H0003, &HF3C0
  1833.     DATA &H0003, &HF3C0, &H0000, &H0033, &HF300, &H0033, &HF300, &H03F3
  1834.     DATA &HF000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H03F3
  1835.     DATA &HC000, &H0000, &H33F3, &H0003, &HF3F0, &HF3F0, &H0000, &H0003
  1836.     DATA &HF3F0, &H0000, &H0003, &HF3F3, &HF3F0, &H0000, &H0000, &H0000
  1837.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1838.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCC00, &H00CC
  1839.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1840.     DATA &HC000, &H0000, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1841.     DATA &HCCC0, &H0000, &H000C, &HCCC0, &HCCCC, &H0000, &H0000, &H0000
  1842.     DATA &H0000, &H0000, &H3333, &H0000, &H0000, &H3330, &H0003, &H3300
  1843.     DATA &H0003, &H3300, &H0000, &H0033, &H3300, &H0033, &H3300, &H0333
  1844.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0333
  1845.     DATA &H0000, &H3330, &H3333, &H0003, &H3330, &H3330, &H0000, &H0003
  1846.     DATA &H3330, &H0033, &H3303, &H3300, &H3333, &H0000, &H0000, &H0000
  1847.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1848.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCC00, &H00CC
  1849.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1850.     DATA &HC000, &HCCCC, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1851.     DATA &HCCC0, &H000C, &HCC0C, &HCCC0, &H0CCC, &HC000, &H0000, &H0000
  1852.     DATA &H0000, &H0000, &H3030, &H0000, &H0000, &H3030, &H0000, &H3000
  1853.     DATA &H0000, &H3000, &H0000, &H0030, &H3000, &H0030, &H3000, &H0030
  1854.     DATA &H3000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0030
  1855.     DATA &H0000, &H3030, &H3030, &H0000, &H3030, &H3030, &H0000, &H0000
  1856.     DATA &H3030, &H0030, &H3000, &H3000, &H0030, &H3000, &H0000, &H0000
  1857.     DATA &H0000, &H0000, &H0CCC, &H0000, &H0000, &HCCCC, &H000C, &HCCC0
  1858.     DATA &H000C, &HCCC0, &H0000, &H000C, &HCC00, &H000C, &HCCC0, &H0CCC
  1859.     DATA &HC000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0CCC
  1860.     DATA &HC000, &HCCCC, &H0CCC, &H0000, &HCCC0, &HCCCC, &H0000, &H0000
  1861.     DATA &HCCCC, &H00CC, &HCC0C, &HCCC0, &H00CC, &HCC00, &H0000, &H0000
  1862.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1863.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1864.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1865.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1866.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1867.     DATA &H0000, &H0000, &H0C00, &H0C00, &H0C00, &H0000, &H0C00, &H0000
  1868.     DATA &H0000, &H0C00, &H0000, &H0000, &H0C00, &H0000, &H0C00, &H0C00
  1869.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1870.     DATA &H0C00, &H0C00, &H0C00, &H0000, &H0C00, &H0C00, &H0C00, &H0C00
  1871.     DATA &H0C00, &H0C00, &H0000, &H0C00, &H0000, &H0C30, &H0000, &H0000
  1872.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1873.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1874.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1875.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1876.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1877.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1878.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1879.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1880.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1881.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1882.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1883.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1884.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1885.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1886.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1887.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1888.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1889.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1890.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1891.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1892.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1893.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1894.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1895.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1896.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1897.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1898.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1899.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1900.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1901.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1902.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1903.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1904.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1905.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1906.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1907.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1908.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1909.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1910.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1911.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1912.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1913.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1914.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1915.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1916.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1917.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1918.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1919.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1920.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1921.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1922.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1923.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1924.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1925.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1926.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1927.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1928.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1929.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1930.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1931.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1932.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1933.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1934.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1935.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1936.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1937.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1938.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1939.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1940.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1941.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1942.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1943.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1944.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1945.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1946.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1947.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1948.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1949.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1950.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1951.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1952.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1953.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1954.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1955.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1956.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1957.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1958.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1959.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1960.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1961.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1962.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1963.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1964.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1965.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1966.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1967.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1968.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1969.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1970.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1971.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1972.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1973.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1974.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1975.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1976.     DATA &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000, &H0000
  1977.